perm filename CSREAS.LAP[MRS,LSP] blob
sn#692486 filedate 1982-12-22 generic text, type T, neo UTF8
'(THIS IS THE LAP FOR ((DSK (MRS LSP)) CSREAS LSP))
'(COMPILED BY LISP COMPILER /936 COMAUX /25 PHAS1 /84 MAKLAP /80 INITIA /117)
;COMPILED ON DECEMBER 22, 1982, AT 3:28 PM
;Loading DEFSTRUCT 280
(NCONC *WRITE-DO-LIST* '(DISPLAY-RPN-CONSIDS))
(SETQ *ALL-BEL-LEVELS* '(CERTAIN DOUBTLESS VERY-LIKELY FAIRLY-LIKELY SOMEWHAT-LIKELY LIKELY-AS-NOT SOMEWHAT-UNLIKELY FAIRLY-UNLIKELY VERY-UNLIKELY MOST-UNLIKELY CERTAINLY-FALSE) *BL-NEG-INDEX* (NCONC (MAPCAR (FUNCTION CONS) *ALL-BEL-LEVELS* (REVERSE *ALL-BEL-LEVELS*)) '((INDETERMINATE . INDETERMINATE))))
(DEFPROP R-GRAPH-K-DIRECTORY (REASONING-GRAPH . K-DIRECTORY) DEFSTRUCT-SLOT)
(DEFPROP R-GRAPH-K-DIRECTORY DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP R-GRAPH-K-FRONTIER (REASONING-GRAPH . K-FRONTIER) DEFSTRUCT-SLOT)
(DEFPROP R-GRAPH-K-FRONTIER DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP R-GRAPH-K-BASIS (REASONING-GRAPH . K-BASIS) DEFSTRUCT-SLOT)
(DEFPROP R-GRAPH-K-BASIS DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP R-GRAPH-T-DIRECTORY (REASONING-GRAPH . T-DIRECTORY) DEFSTRUCT-SLOT)
(DEFPROP R-GRAPH-T-DIRECTORY DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP R-GRAPH-T-FRONTIER (REASONING-GRAPH . T-FRONTIER) DEFSTRUCT-SLOT)
(DEFPROP R-GRAPH-T-FRONTIER DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP R-GRAPH-T-BASIS (REASONING-GRAPH . T-BASIS) DEFSTRUCT-SLOT)
(DEFPROP R-GRAPH-T-BASIS DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP R-GRAPH-RB-CONTEXT (REASONING-GRAPH . RB-CONTEXT) DEFSTRUCT-SLOT)
(DEFPROP R-GRAPH-RB-CONTEXT DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP MAKE-REASONING-GRAPH REASONING-GRAPH DEFSTRUCT-NAME)
(DEFPROP MAKE-REASONING-GRAPH DEFSTRUCT-EXPAND-CONS-MACRO MACRO)
(DEFPROP REASONING-GRAPH (ONE HUNK () ((RB-CONTEXT 0 () () NOTYPE () R-GRAPH-RB-CONTEXT) (T-BASIS 1 () () NOTYPE () R-GRAPH-T-BASIS) (T-FRONTIER 2 () () NOTYPE () R-GRAPH-T-FRONTIER) (T-DIRECTORY 3 () () NOTYPE () R-GRAPH-T-DIRECTORY) (K-BASIS 4 () () NOTYPE () R-GRAPH-K-BASIS) (K-FRONTIER 5 () () NOTYPE () R-GRAPH-K-FRONTIER) (K-DIRECTORY 6 () () NOTYPE () R-GRAPH-K-DIRECTORY)) () ((MAKE-REASONING-GRAPH)) () () 7 () REASONING-GRAPH () 0 (EVAL COMPILE LOAD) ALTER-REASONING-GRAPH R-GRAPH- () () () () () () ) DEFSTRUCT-DESCRIPTION)
(DEFPROP ALTER-REASONING-GRAPH REASONING-GRAPH DEFSTRUCT-NAME)
(DEFPROP ALTER-REASONING-GRAPH DEFSTRUCT-EXPAND-ALTER-MACRO MACRO)
'REASONING-GRAPH
(DEFPROP RG-DIR-ENTRY-RP-NODE (RG-DIRECTORY-ENTRY . RP-NODE) DEFSTRUCT-SLOT)
(DEFPROP RG-DIR-ENTRY-RP-NODE DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP RG-DIR-ENTRY-CONTEXT (RG-DIRECTORY-ENTRY . CONTEXT) DEFSTRUCT-SLOT)
(DEFPROP RG-DIR-ENTRY-CONTEXT DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP RG-DIR-ENTRY-P-UNIT (RG-DIRECTORY-ENTRY . P-UNIT) DEFSTRUCT-SLOT)
(DEFPROP RG-DIR-ENTRY-P-UNIT DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP MAKE-RG-DIRECTORY-ENTRY RG-DIRECTORY-ENTRY DEFSTRUCT-NAME)
(DEFPROP MAKE-RG-DIRECTORY-ENTRY DEFSTRUCT-EXPAND-CONS-MACRO MACRO)
(DEFPROP RG-DIRECTORY-ENTRY (ONE HUNK () ((P-UNIT 0 () %%DEFSTRUCT-EMPTY%% NOTYPE () RG-DIR-ENTRY-P-UNIT) (CONTEXT 1 () %%DEFSTRUCT-EMPTY%% NOTYPE () RG-DIR-ENTRY-CONTEXT) (RP-NODE 2 () %%DEFSTRUCT-EMPTY%% NOTYPE () RG-DIR-ENTRY-RP-NODE)) () ((MAKE-RG-DIRECTORY-ENTRY)) () () 3 () RG-DIRECTORY-ENTRY () 0 (EVAL COMPILE LOAD) ALTER-RG-DIRECTORY-ENTRY RG-DIR-ENTRY- () () () () () () ) DEFSTRUCT-DESCRIPTION)
(DEFPROP ALTER-RG-DIRECTORY-ENTRY RG-DIRECTORY-ENTRY DEFSTRUCT-NAME)
(DEFPROP ALTER-RG-DIRECTORY-ENTRY DEFSTRUCT-EXPAND-ALTER-MACRO MACRO)
'RG-DIRECTORY-ENTRY
(DEFPROP BELIEF-EPISTATUS (BELIEF . EPISTATUS) DEFSTRUCT-SLOT)
(DEFPROP BELIEF-EPISTATUS DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP BELIEF-P-UNIT (BELIEF . P-UNIT) DEFSTRUCT-SLOT)
(DEFPROP BELIEF-P-UNIT DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP BELIEF-TYPE (BELIEF . TYPE) DEFSTRUCT-SLOT)
(DEFPROP BELIEF-TYPE DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP BELIEF-WT-CNTXT (BELIEF . WT-CNTXT) DEFSTRUCT-SLOT)
(DEFPROP BELIEF-WT-CNTXT DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP MAKE-BELIEF BELIEF DEFSTRUCT-NAME)
(DEFPROP MAKE-BELIEF DEFSTRUCT-EXPAND-CONS-MACRO MACRO)
(DEFPROP BELIEF (ONE HUNK () ((WT-CNTXT 0 () -REALWORLD- NOTYPE () BELIEF-WT-CNTXT) (TYPE 1 () () NOTYPE () BELIEF-TYPE) (P-UNIT 2 () () NOTYPE () BELIEF-P-UNIT) (EPISTATUS 3 () () NOTYPE () BELIEF-EPISTATUS)) () ((MAKE-BELIEF)) () () 4 () BELIEF () 0 (EVAL COMPILE LOAD) ALTER-BELIEF BELIEF- () () () () () () ) DEFSTRUCT-DESCRIPTION)
(DEFPROP ALTER-BELIEF BELIEF DEFSTRUCT-NAME)
(DEFPROP ALTER-BELIEF DEFSTRUCT-EXPAND-ALTER-MACRO MACRO)
'BELIEF
(DEFPROP QUERY-EPISTATUS (QUERY . EPISTATUS) DEFSTRUCT-SLOT)
(DEFPROP QUERY-EPISTATUS DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP QUERY-P-UNIT (QUERY . P-UNIT) DEFSTRUCT-SLOT)
(DEFPROP QUERY-P-UNIT DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP QUERY-TYPE (QUERY . TYPE) DEFSTRUCT-SLOT)
(DEFPROP QUERY-TYPE DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP QUERY-WT-CNTXT (QUERY . WT-CNTXT) DEFSTRUCT-SLOT)
(DEFPROP QUERY-WT-CNTXT DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP MAKE-QUERY QUERY DEFSTRUCT-NAME)
(DEFPROP MAKE-QUERY DEFSTRUCT-EXPAND-CONS-MACRO MACRO)
(DEFPROP QUERY (ONE HUNK () ((WT-CNTXT 0 () () NOTYPE () QUERY-WT-CNTXT) (TYPE 1 () 'QUERY NOTYPE () QUERY-TYPE) (P-UNIT 2 () () NOTYPE () QUERY-P-UNIT) (EPISTATUS 3 () (MAKE-EPISTATUS BEL-LEVEL 'INDETERMINATE BEL-FIRMNESS () ) NOTYPE () QUERY-EPISTATUS)) () ((MAKE-QUERY)) () () 4 () QUERY () 0 (EVAL COMPILE LOAD) ALTER-QUERY QUERY- () () () () () () ) DEFSTRUCT-DESCRIPTION)
(DEFPROP ALTER-QUERY QUERY DEFSTRUCT-NAME)
(DEFPROP ALTER-QUERY DEFSTRUCT-EXPAND-ALTER-MACRO MACRO)
'QUERY
(FLUSH-MACROMEMOS 'BELIEF-FORMULA 'FLUSH-MACROMEMOS)
(DEFPROP BELIEF-FORMULA |BELIEF-FORMULA MACRO| MACRO)
(LAP |BELIEF-FORMULA MACRO| SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS |BELIEF-FORMULA MACRO| (() . 1.))
(COMMENT ARGLIST = (BELIEF))
(PUSH P 1.)
(CALL 1. 'MACROFETCH)
(JUMPN 1. G0001)
(MOVE 1. 0. P)
(NCALL 1. 'LENGTH)
(CAIN 7. 2.)
(JRST 0. G0003)
(MOVEI T G0005)
(PUSH P T)
(PUSH P (% 0. 0. '|Wrong number args for macro|))
(PUSH P -2. P)
(MOVNI T 2.)
(JCALL 14. 'ERROR)
G0005
G0003
(HRRZ 1. @ 0. P)
(HLRZ 1. 0. 1.)
(JSP T %NCONS)
(MOVEI 2. 'BELIEF-P-UNIT)
(JSP T %XCONS)
(MOVEI 2. '('FORMULA))
(JSP T %CONS)
(MOVEI 2. 'GET)
(JSP T %XCONS)
(MOVEI 3. 'BELIEF-FORMULA)
(MOVEI 2. 0. 1.)
(MOVE 1. 0. P)
(CALL 3. 'MACROMEMO)
G0001
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(FLUSH-MACROMEMOS 'RP-NODE-FORMULA 'FLUSH-MACROMEMOS)
(DEFPROP RP-NODE-FORMULA |RP-NODE-FORMULA MACRO| MACRO)
(LAP |RP-NODE-FORMULA MACRO| SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS |RP-NODE-FORMULA MACRO| (() . 1.))
(COMMENT ARGLIST = (RP-NODE))
(PUSH P 1.)
(CALL 1. 'MACROFETCH)
(JUMPN 1. G0001)
(MOVE 1. 0. P)
(NCALL 1. 'LENGTH)
(CAIN 7. 2.)
(JRST 0. G0003)
(MOVEI T G0005)
(PUSH P T)
(PUSH P (% 0. 0. '|Wrong number args for macro|))
(PUSH P -2. P)
(MOVNI T 2.)
(JCALL 14. 'ERROR)
G0005
G0003
(HRRZ 1. @ 0. P)
(HLRZ 1. 0. 1.)
(JSP T %NCONS)
(MOVEI 2. 'RP-NODE-CONTENT)
(JSP T %XCONS)
(JSP T %NCONS)
(MOVEI 2. 'BELIEF-FORMULA)
(JSP T %XCONS)
(MOVEI 3. 'RP-NODE-FORMULA)
(MOVEI 2. 0. 1.)
(MOVE 1. 0. P)
(CALL 3. 'MACROMEMO)
G0001
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(FLUSH-MACROMEMOS 'QUERY-FORMULA 'FLUSH-MACROMEMOS)
(DEFPROP QUERY-FORMULA |QUERY-FORMULA MACRO| MACRO)
(LAP |QUERY-FORMULA MACRO| SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS |QUERY-FORMULA MACRO| (() . 1.))
(COMMENT ARGLIST = (QUERY))
(PUSH P 1.)
(CALL 1. 'MACROFETCH)
(JUMPN 1. G0001)
(MOVE 1. 0. P)
(NCALL 1. 'LENGTH)
(CAIN 7. 2.)
(JRST 0. G0003)
(MOVEI T G0005)
(PUSH P T)
(PUSH P (% 0. 0. '|Wrong number args for macro|))
(PUSH P -2. P)
(MOVNI T 2.)
(JCALL 14. 'ERROR)
G0005
G0003
(HRRZ 1. @ 0. P)
(HLRZ 1. 0. 1.)
(JSP T %NCONS)
(MOVEI 2. 'QUERY-P-UNIT)
(JSP T %XCONS)
(MOVEI 2. '('FORMULA))
(JSP T %CONS)
(MOVEI 2. 'GET)
(JSP T %XCONS)
(MOVEI 3. 'QUERY-FORMULA)
(MOVEI 2. 0. 1.)
(MOVE 1. 0. P)
(CALL 3. 'MACROMEMO)
G0001
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(FLUSH-MACROMEMOS 'BELIEF-DESCRIPTS 'FLUSH-MACROMEMOS)
(DEFPROP BELIEF-DESCRIPTS |BELIEF-DESCRIPTS MACRO| MACRO)
(LAP |BELIEF-DESCRIPTS MACRO| SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS |BELIEF-DESCRIPTS MACRO| (() . 1.))
(COMMENT ARGLIST = (BELIEF))
(PUSH P 1.)
(CALL 1. 'MACROFETCH)
(JUMPN 1. G0001)
(MOVE 1. 0. P)
(NCALL 1. 'LENGTH)
(CAIN 7. 2.)
(JRST 0. G0003)
(MOVEI T G0005)
(PUSH P T)
(PUSH P (% 0. 0. '|Wrong number args for macro|))
(PUSH P -2. P)
(MOVNI T 2.)
(JCALL 14. 'ERROR)
G0005
G0003
(HRRZ 1. @ 0. P)
(HLRZ 1. 0. 1.)
(JSP T %NCONS)
(MOVEI 2. 'BELIEF-P-UNIT)
(JSP T %XCONS)
(MOVEI 2. '('F-DESCRIPTS))
(JSP T %CONS)
(MOVEI 2. 'GET)
(JSP T %XCONS)
(MOVEI 3. 'BELIEF-DESCRIPTS)
(MOVEI 2. 0. 1.)
(MOVE 1. 0. P)
(CALL 3. 'MACROMEMO)
G0001
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(FLUSH-MACROMEMOS 'QUERY-DESCRIPTS 'FLUSH-MACROMEMOS)
(DEFPROP QUERY-DESCRIPTS |QUERY-DESCRIPTS MACRO| MACRO)
(LAP |QUERY-DESCRIPTS MACRO| SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS |QUERY-DESCRIPTS MACRO| (() . 1.))
(COMMENT ARGLIST = (QUERY))
(PUSH P 1.)
(CALL 1. 'MACROFETCH)
(JUMPN 1. G0001)
(MOVE 1. 0. P)
(NCALL 1. 'LENGTH)
(CAIN 7. 2.)
(JRST 0. G0003)
(MOVEI T G0005)
(PUSH P T)
(PUSH P (% 0. 0. '|Wrong number args for macro|))
(PUSH P -2. P)
(MOVNI T 2.)
(JCALL 14. 'ERROR)
G0005
G0003
(HRRZ 1. @ 0. P)
(HLRZ 1. 0. 1.)
(JSP T %NCONS)
(MOVEI 2. 'QUERY-P-UNIT)
(JSP T %XCONS)
(MOVEI 2. '('F-DESCRIPTS))
(JSP T %CONS)
(MOVEI 2. 'GET)
(JSP T %XCONS)
(MOVEI 3. 'QUERY-DESCRIPTS)
(MOVEI 2. 0. 1.)
(MOVE 1. 0. P)
(CALL 3. 'MACROMEMO)
G0001
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(FLUSH-MACROMEMOS 'BELIEF-BEL-LEVEL 'FLUSH-MACROMEMOS)
(DEFPROP BELIEF-BEL-LEVEL |BELIEF-BEL-LEVEL MACRO| MACRO)
(LAP |BELIEF-BEL-LEVEL MACRO| SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS |BELIEF-BEL-LEVEL MACRO| (() . 1.))
(COMMENT ARGLIST = (BELIEF))
(PUSH P 1.)
(CALL 1. 'MACROFETCH)
(JUMPN 1. G0001)
(MOVE 1. 0. P)
(NCALL 1. 'LENGTH)
(CAIN 7. 2.)
(JRST 0. G0003)
(MOVEI T G0005)
(PUSH P T)
(PUSH P (% 0. 0. '|Wrong number args for macro|))
(PUSH P -2. P)
(MOVNI T 2.)
(JCALL 14. 'ERROR)
G0005
G0003
(HRRZ 1. @ 0. P)
(HLRZ 1. 0. 1.)
(JSP T %NCONS)
(MOVEI 2. 'BELIEF-EPISTATUS)
(JSP T %XCONS)
(JSP T %NCONS)
(MOVEI 2. 'EPIST-BEL-LEVEL)
(JSP T %XCONS)
(MOVEI 3. 'BELIEF-BEL-LEVEL)
(MOVEI 2. 0. 1.)
(MOVE 1. 0. P)
(CALL 3. 'MACROMEMO)
G0001
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(FLUSH-MACROMEMOS 'QUERY-BEL-LEVEL 'FLUSH-MACROMEMOS)
(DEFPROP QUERY-BEL-LEVEL |QUERY-BEL-LEVEL MACRO| MACRO)
(LAP |QUERY-BEL-LEVEL MACRO| SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS |QUERY-BEL-LEVEL MACRO| (() . 1.))
(COMMENT ARGLIST = (QUERY))
(PUSH P 1.)
(CALL 1. 'MACROFETCH)
(JUMPN 1. G0001)
(MOVE 1. 0. P)
(NCALL 1. 'LENGTH)
(CAIN 7. 2.)
(JRST 0. G0003)
(MOVEI T G0005)
(PUSH P T)
(PUSH P (% 0. 0. '|Wrong number args for macro|))
(PUSH P -2. P)
(MOVNI T 2.)
(JCALL 14. 'ERROR)
G0005
G0003
(HRRZ 1. @ 0. P)
(HLRZ 1. 0. 1.)
(JSP T %NCONS)
(MOVEI 2. 'QUERY-EPISTATUS)
(JSP T %XCONS)
(JSP T %NCONS)
(MOVEI 2. 'EPIST-BEL-LEVEL)
(JSP T %XCONS)
(MOVEI 3. 'QUERY-BEL-LEVEL)
(MOVEI 2. 0. 1.)
(MOVE 1. 0. P)
(CALL 3. 'MACROMEMO)
G0001
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(DEFPROP EPIST-BEL-FIRMNESS (EPISTATUS . BEL-FIRMNESS) DEFSTRUCT-SLOT)
(DEFPROP EPIST-BEL-FIRMNESS DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP EPIST-BL-GROUNDS (EPISTATUS . BL-GROUNDS) DEFSTRUCT-SLOT)
(DEFPROP EPIST-BL-GROUNDS DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP EPIST-BEL-LEVEL (EPISTATUS . BEL-LEVEL) DEFSTRUCT-SLOT)
(DEFPROP EPIST-BEL-LEVEL DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP EPIST-BF-GROUNDS (EPISTATUS . BF-GROUNDS) DEFSTRUCT-SLOT)
(DEFPROP EPIST-BF-GROUNDS DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP MAKE-EPISTATUS EPISTATUS DEFSTRUCT-NAME)
(DEFPROP MAKE-EPISTATUS DEFSTRUCT-EXPAND-CONS-MACRO MACRO)
(DEFPROP EPISTATUS (ONE HUNK () ((BF-GROUNDS 0 () () NOTYPE () EPIST-BF-GROUNDS) (BEL-LEVEL 1 () () NOTYPE () EPIST-BEL-LEVEL) (BL-GROUNDS 2 () () NOTYPE () EPIST-BL-GROUNDS) (BEL-FIRMNESS 3 () () NOTYPE () EPIST-BEL-FIRMNESS)) () ((MAKE-EPISTATUS)) () () 4 () EPISTATUS () 0 (EVAL COMPILE LOAD) ALTER-EPISTATUS EPIST- () () () () () () ) DEFSTRUCT-DESCRIPTION)
(DEFPROP ALTER-EPISTATUS EPISTATUS DEFSTRUCT-NAME)
(DEFPROP ALTER-EPISTATUS DEFSTRUCT-EXPAND-ALTER-MACRO MACRO)
'EPISTATUS
(FLUSH-MACROMEMOS 'CSR:CREATE-BLF∨QRY 'FLUSH-MACROMEMOS)
(DEFPROP CSR:CREATE-BLF∨QRY |CSR:CREATE-BLF∨QRY MACRO| MACRO)
(LAP |CSR:CREATE-BLF∨QRY MACRO| SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS |CSR:CREATE-BLF∨QRY MACRO| (() . 1.))
(COMMENT ARGLIST = (TYPE . IND-VAL-TAIL))
(PUSH P 1.)
(CALL 1. 'MACROFETCH)
(JUMPN 1. G0006)
(MOVE 1. 0. P)
(NCALL 1. 'LENGTH)
(CAIL 7. 2.)
(JRST 0. G0008)
(MOVEI T G0010)
(PUSH P T)
(PUSH P (% 0. 0. '|Wrong number args for macro|))
(PUSH P -2. P)
(MOVNI T 2.)
(JCALL 14. 'ERROR)
G0010
G0008
(HRRZ 1. @ 0. P)
(HLRZ 2. 0. 1.)
(HRRZ 3. 0. 1.)
(PUSH P 2.)
(PUSH P 3.)
(CAIN 2. 'QUERY)
(SKIPA 1. (% 0. 0. 'MAKE-QUERY))
(MOVEI 1. 'MAKE-BELIEF)
(MOVEI 2. '() )
(EXCH 1. 3.)
(PUSH P 3.)
(CALL 2. '*APPEND)
(MOVEI 2. 'LIST)
(JSP T %XCONS)
(PUSH P (% 0. 0. '() ))
(PUSH P 1.)
(MOVEI 2. 'WT-CNTXT)
(CALL 2. 'GET)
(MOVEM 1. -1. P)
(JUMPE 1. G0018)
(MOVEI 2. 'WT-CNTXT)
(MOVE 1. 0. P)
(CALL 2. 'REMPROP)
G0018
(PUSH P (% 0. 0. '() ))
(HRRZ 1. @ -1. P)
(PUSH P (% 0. 0. '() ))
(PUSH P 1.)
G0003
(SKIPN 0. 0. P)
(JRST 0. G0024)
(HLRZ 1. @ 0. P)
(MOVEI 5. '(BEL-LEVEL BEL-FIRMNESS BL-GROUNDS BF-GROUNDS))
(JUMPE 5. G0022)
(HLRZ 4. 0. 5.)
(HRRZ 5. 0. 5.)
(CAIE 4. 0. 1.)
(JRST 0. (* -4.))
G0024
(SKIPN 0. 0. P)
(JRST 0. G0027)
(MOVE 5. 0. P)
(HLLZS 0. @ -1. P)
(MOVEM 5. -2. P)
G0027
(MOVEI 1. '() )
(JRST 0. G0029)
G0022
(HRRZ 2. @ 0. P)
(HRRZ 3. @ 0. P)
(HRRZ 3. 0. 3.)
(MOVEM 2. -1. P)
(MOVEM 3. 0. P)
(JRST 0. G0003)
G0029
(SUB P (% 0. 0. 2. 2.))
(PUSH P -1. P)
G0005
(HRRZ 1. @ 0. P)
(JUMPE 1. G0033)
(HLRZ 1. 0. 1.)
(JSP T %NCONS)
(MOVEI 2. 'QUOTE)
(JSP T %XCONS)
(HRRZ 2. @ 0. P)
(HRRZ 2. 0. 2.)
(JSP T %CONS)
(HRRM 1. @ 0. P)
(HRRZ 2. @ 0. P)
(HRRZ 2. 0. 2.)
(MOVEM 2. 0. P)
(JRST 0. G0005)
G0033
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. -1. P)
(JSP T %NCONS)
(MOVEI 2. 'P-UNIT)
(JSP T %XCONS)
(MOVEI 2. 'SETPLIST)
(JSP T %XCONS)
(EXCH 1. -5. P)
(JSP T %NCONS)
(MOVEI 2. 'QUOTE)
(JSP T %XCONS)
(PUSH P 1.)
(MOVE 1. -3. P)
(JUMPN 1. G0047)
(MOVEI 1. '-REALWORLD-)
G0047
(PUSH P 1.)
(SKIPN 0. -2. P)
(JRST 0. G0051)
(MOVE 2. -2. P)
(MOVEI 1. 'MAKE-EPISTATUS)
(JSP T %CONS)
(JSP T %NCONS)
(MOVEI 2. 'EPISTATUS)
(JSP T %XCONS)
(JRST 0. G0050)
G0051
(MOVEI 1. '() )
G0050
(POP P 2.)
(JSP T %XCONS)
(MOVEI 2. 'WT-CNTXT)
(JSP T %XCONS)
(MOVEI 2. 'P-UNIT)
(JSP T %XCONS)
(MOVEI 2. 'P-UNIT)
(JSP T %XCONS)
(POP P 2.)
(JSP T %XCONS)
(MOVEI 2. 'TYPE)
(JSP T %XCONS)
(MOVE 2. -3. P)
(JSP T %XCONS)
(JSP T %NCONS)
(MOVE 2. -5. P)
(JSP T %XCONS)
(MOVEI 2. '((P-UNIT (NCONS '*P-UNIT*))))
(JSP T %XCONS)
(MOVEI 2. 'LET)
(JSP T %XCONS)
(SUB P (% 0. 0. 6. 6.))
(MOVEI 3. 'CSR:CREATE-BLF∨QRY)
(MOVEI 2. 0. 1.)
(MOVE 1. 0. P)
(CALL 3. 'MACROMEMO)
G0006
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(DEFPROP R-TASK-TRIAL-REPORT (REASONING-TASK . TRIAL-REPORT) DEFSTRUCT-SLOT)
(DEFPROP R-TASK-TRIAL-REPORT DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP R-TASK-ARGUMENTS (REASONING-TASK . ARGUMENTS) DEFSTRUCT-SLOT)
(DEFPROP R-TASK-ARGUMENTS DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP R-TASK-METHOD (REASONING-TASK . METHOD) DEFSTRUCT-SLOT)
(DEFPROP R-TASK-METHOD DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP R-TASK-R-EXPERT (REASONING-TASK . R-EXPERT) DEFSTRUCT-SLOT)
(DEFPROP R-TASK-R-EXPERT DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP R-TASK-DESCRIPTION (REASONING-TASK . DESCRIPTION) DEFSTRUCT-SLOT)
(DEFPROP R-TASK-DESCRIPTION DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP R-TASK-PRIORITY (REASONING-TASK . PRIORITY) DEFSTRUCT-SLOT)
(DEFPROP R-TASK-PRIORITY DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP R-TASK-EFFORT (REASONING-TASK . EFFORT) DEFSTRUCT-SLOT)
(DEFPROP R-TASK-EFFORT DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP MAKE-REASONING-TASK REASONING-TASK DEFSTRUCT-NAME)
(DEFPROP MAKE-REASONING-TASK DEFSTRUCT-EXPAND-CONS-MACRO MACRO)
(DEFPROP REASONING-TASK (ONE HUNK () ((EFFORT 0 () %%DEFSTRUCT-EMPTY%% NOTYPE () R-TASK-EFFORT) (PRIORITY 1 () %%DEFSTRUCT-EMPTY%% NOTYPE () R-TASK-PRIORITY) (DESCRIPTION 2 () %%DEFSTRUCT-EMPTY%% NOTYPE () R-TASK-DESCRIPTION) (R-EXPERT 3 () %%DEFSTRUCT-EMPTY%% NOTYPE () R-TASK-R-EXPERT) (METHOD 4 () %%DEFSTRUCT-EMPTY%% NOTYPE () R-TASK-METHOD) (ARGUMENTS 5 () %%DEFSTRUCT-EMPTY%% NOTYPE () R-TASK-ARGUMENTS) (TRIAL-REPORT 6 () 'UNTRIED NOTYPE () R-TASK-TRIAL-REPORT)) () ((MAKE-REASONING-TASK)) () () 7 () REASONING-TASK () 0 (EVAL COMPILE LOAD) ALTER-REASONING-TASK R-TASK- () () () () () () ) DEFSTRUCT-DESCRIPTION)
(DEFPROP ALTER-REASONING-TASK REASONING-TASK DEFSTRUCT-NAME)
(DEFPROP ALTER-REASONING-TASK DEFSTRUCT-EXPAND-ALTER-MACRO MACRO)
'REASONING-TASK
(DEFPROP RP-NODE-TRAV-LIST (REASONING-PROPOSITION-NODE . TRAV-LIST) DEFSTRUCT-SLOT)
(DEFPROP RP-NODE-TRAV-LIST DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP RP-NODE-NEGATION (REASONING-PROPOSITION-NODE . NEGATION) DEFSTRUCT-SLOT)
(DEFPROP RP-NODE-NEGATION DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP RP-NODE-PART-CONSIDS (REASONING-PROPOSITION-NODE . PART-CONSIDS) DEFSTRUCT-SLOT)
(DEFPROP RP-NODE-PART-CONSIDS DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP RP-NODE-RLVT-CONSIDS (REASONING-PROPOSITION-NODE . RLVT-CONSIDS) DEFSTRUCT-SLOT)
(DEFPROP RP-NODE-RLVT-CONSIDS DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP RP-NODE-CONTENT (REASONING-PROPOSITION-NODE . CONTENT) DEFSTRUCT-SLOT)
(DEFPROP RP-NODE-CONTENT DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP RP-NODE-TYPE (REASONING-PROPOSITION-NODE . TYPE) DEFSTRUCT-SLOT)
(DEFPROP RP-NODE-TYPE DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP RP-NODE-R-GRAPH (REASONING-PROPOSITION-NODE . R-GRAPH) DEFSTRUCT-SLOT)
(DEFPROP RP-NODE-R-GRAPH DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP MAKE-REASONING-PROPOSITION-NODE REASONING-PROPOSITION-NODE DEFSTRUCT-NAME)
(DEFPROP MAKE-REASONING-PROPOSITION-NODE DEFSTRUCT-EXPAND-CONS-MACRO MACRO)
(DEFPROP REASONING-PROPOSITION-NODE (ONE HUNK () ((R-GRAPH 0 () () NOTYPE () RP-NODE-R-GRAPH) (TYPE 1 () () NOTYPE () RP-NODE-TYPE) (CONTENT 2 () () NOTYPE () RP-NODE-CONTENT) (RLVT-CONSIDS 3 () () NOTYPE () RP-NODE-RLVT-CONSIDS) (PART-CONSIDS 4 () () NOTYPE () RP-NODE-PART-CONSIDS) (NEGATION 5 () () NOTYPE () RP-NODE-NEGATION) (TRAV-LIST 6 () () NOTYPE () RP-NODE-TRAV-LIST)) () ((MAKE-REASONING-PROPOSITION-NODE)) () () 7 () REASONING-PROPOSITION-NODE () 0 (EVAL COMPILE LOAD) ALTER-REASONING-PROPOSITION-NODE RP-NODE- () () () () () () ) DEFSTRUCT-DESCRIPTION)
(DEFPROP ALTER-REASONING-PROPOSITION-NODE REASONING-PROPOSITION-NODE DEFSTRUCT-NAME)
(DEFPROP ALTER-REASONING-PROPOSITION-NODE DEFSTRUCT-EXPAND-ALTER-MACRO MACRO)
'REASONING-PROPOSITION-NODE
(DEFPROP CONSID-TRAV-LIST (REASONING-CONSIDERATION-LINK . TRAV-LIST) DEFSTRUCT-SLOT)
(DEFPROP CONSID-TRAV-LIST DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP CONSID-GOAL-NODES (REASONING-CONSIDERATION-LINK . GOAL-NODES) DEFSTRUCT-SLOT)
(DEFPROP CONSID-GOAL-NODES DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP CONSID-FORCE (REASONING-CONSIDERATION-LINK . FORCE) DEFSTRUCT-SLOT)
(DEFPROP CONSID-FORCE DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP CONSID-INHER-REL-STRENGTH (REASONING-CONSIDERATION-LINK . INHER-REL-STRENGTH) DEFSTRUCT-SLOT)
(DEFPROP CONSID-INHER-REL-STRENGTH DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP CONSID-CONCL-NODE (REASONING-CONSIDERATION-LINK . CONCL-NODE) DEFSTRUCT-SLOT)
(DEFPROP CONSID-CONCL-NODE DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP CONSID-PREM-NODES (REASONING-CONSIDERATION-LINK . PREM-NODES) DEFSTRUCT-SLOT)
(DEFPROP CONSID-PREM-NODES DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP CONSID-RULE (REASONING-CONSIDERATION-LINK . RULE) DEFSTRUCT-SLOT)
(DEFPROP CONSID-RULE DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP CONSID-TYPE (REASONING-CONSIDERATION-LINK . TYPE) DEFSTRUCT-SLOT)
(DEFPROP CONSID-TYPE DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP CONSID-R-GRAPH (REASONING-CONSIDERATION-LINK . R-GRAPH) DEFSTRUCT-SLOT)
(DEFPROP CONSID-R-GRAPH DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP MAKE-REASONING-CONSIDERATION-LINK REASONING-CONSIDERATION-LINK DEFSTRUCT-NAME)
(DEFPROP MAKE-REASONING-CONSIDERATION-LINK DEFSTRUCT-EXPAND-CONS-MACRO MACRO)
(DEFPROP REASONING-CONSIDERATION-LINK (ONE HUNK () ((R-GRAPH 0 () () NOTYPE () CONSID-R-GRAPH) (TYPE 1 () 'ORDINARY-CONSID NOTYPE () CONSID-TYPE) (RULE 2 () () NOTYPE () CONSID-RULE) (PREM-NODES 3 () () NOTYPE () CONSID-PREM-NODES) (CONCL-NODE 4 () () NOTYPE () CONSID-CONCL-NODE) (INHER-REL-STRENGTH 5 () () NOTYPE () CONSID-INHER-REL-STRENGTH) (FORCE 6 () () NOTYPE () CONSID-FORCE) (GOAL-NODES 7 () () NOTYPE () CONSID-GOAL-NODES) (TRAV-LIST 8 () () NOTYPE () CONSID-TRAV-LIST)) () ((MAKE-REASONING-CONSIDERATION-LINK)) () () 9 () REASONING-CONSIDERATION-LINK () 0 (EVAL COMPILE LOAD) ALTER-REASONING-CONSIDERATION-LINK CONSID- () () () () () () ) DEFSTRUCT-DESCRIPTION)
(DEFPROP ALTER-REASONING-CONSIDERATION-LINK REASONING-CONSIDERATION-LINK DEFSTRUCT-NAME)
(DEFPROP ALTER-REASONING-CONSIDERATION-LINK DEFSTRUCT-EXPAND-ALTER-MACRO MACRO)
'REASONING-CONSIDERATION-LINK
(DEFPROP CNSD-FORCE-VALUE (CONSIDERATION-FORCE . VALUE) DEFSTRUCT-SLOT)
(DEFPROP CNSD-FORCE-VALUE DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP CNSD-FORCE-INDICATOR (CONSIDERATION-FORCE . INDICATOR) DEFSTRUCT-SLOT)
(DEFPROP CNSD-FORCE-INDICATOR DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP MAKE-CONSIDERATION-FORCE CONSIDERATION-FORCE DEFSTRUCT-NAME)
(DEFPROP MAKE-CONSIDERATION-FORCE DEFSTRUCT-EXPAND-CONS-MACRO MACRO)
(DEFPROP CONSIDERATION-FORCE (ONE TREE () ((INDICATOR 0 () 'IF-ALONE NOTYPE () CNSD-FORCE-INDICATOR) (VALUE 1 () () NOTYPE () CNSD-FORCE-VALUE)) () ((MAKE-CONSIDERATION-FORCE)) () () 2 () CONSIDERATION-FORCE () 0 (EVAL COMPILE LOAD) ALTER-CONSIDERATION-FORCE CNSD-FORCE- () () () () () () ) DEFSTRUCT-DESCRIPTION)
(DEFPROP ALTER-CONSIDERATION-FORCE CONSIDERATION-FORCE DEFSTRUCT-NAME)
(DEFPROP ALTER-CONSIDERATION-FORCE DEFSTRUCT-EXPAND-ALTER-MACRO MACRO)
'CONSIDERATION-FORCE
(FLUSH-MACROMEMOS 'CREATE-ADVICE-CONSID 'FLUSH-MACROMEMOS)
(DEFPROP CREATE-ADVICE-CONSID |CREATE-ADVICE-CONSID MACRO| MACRO)
(LAP |CREATE-ADVICE-CONSID MACRO| SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS |CREATE-ADVICE-CONSID MACRO| (() . 1.))
(COMMENT ARGLIST = (CF-VALUE))
(PUSH P 1.)
(CALL 1. 'MACROFETCH)
(JUMPN 1. G0001)
(MOVE 1. 0. P)
(NCALL 1. 'LENGTH)
(CAIN 7. 2.)
(JRST 0. G0003)
(MOVEI T G0005)
(PUSH P T)
(PUSH P (% 0. 0. '|Wrong number args for macro|))
(PUSH P -2. P)
(MOVNI T 2.)
(JCALL 14. 'ERROR)
G0005
G0003
(HRRZ 1. @ 0. P)
(HLRZ 1. 0. 1.)
(JSP T %NCONS)
(MOVEI 2. 'VALUE)
(JSP T %XCONS)
(MOVEI 2. 'MAKE-CONSIDERATION-FORCE)
(JSP T %XCONS)
(JSP T %NCONS)
(MOVEI 2. 'FORCE)
(JSP T %XCONS)
(MOVEI 2. ''***)
(JSP T %XCONS)
(MOVEI 2. 'CONCL-NODE)
(JSP T %XCONS)
(MOVEI 2. ''USER-ADVICE)
(JSP T %XCONS)
(MOVEI 2. 'RULE)
(JSP T %XCONS)
(MOVEI 2. 'MAKE-REASONING-CONSIDERATION-LINK)
(JSP T %XCONS)
(MOVEI 3. 'CREATE-ADVICE-CONSID)
(MOVEI 2. 0. 1.)
(MOVE 1. 0. P)
(CALL 3. 'MACROMEMO)
G0001
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP CSR:COPY-CONSID SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:COPY-CONSID (() . 1.))
(PUSH P 1.)
(LSH 1. -9.)
(MOVE 7. ST 1.)
(TLNE 7. 16.)
(JRST 0. G0005)
(MOVEI 2. '|CSR:COPY-CONSID - consid not a hunk!|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0005
(PUSH FXP (% 0.))
(PUSH FXP (% 0.))
(MOVE 1. 0. P)
(NCALL 1. 'HUNKSIZE)
(PUSH FXP 7.)
(MOVEI 1. 0. FXP)
(CALL 1. 'MAKHUNK)
(PUSH P 1.)
(MOVE 1. -1. P)
(NCALL 1. 'HUNKSIZE)
(PUSH P (% 0. 0. '0.))
(MOVEM 7. -2. FXP)
(MOVEI 5. -2. FXP)
(PUSH P 5.)
G0003
(MOVE 7. @ -1. P)
(CAME 7. @ 0. P)
(JRST 0. G0009)
(MOVE 1. -2. P)
(JRST 0. G0011)
G0009
(MOVE 1. -3. P)
(MOVE 7. @ -1. P)
(JSP T %CXR)
(MOVEI 2. 0. 1.)
(MOVE 1. -2. P)
(MOVE 7. @ -1. P)
(JSP T %RPX)
(MOVE 7. @ -1. P)
(ADDI 7. 1.)
(MOVEM 7. -1. FXP)
(MOVEI 1. -1. FXP)
(MOVEM 1. -1. P)
(JRST 0. G0003)
G0011
(SUB FXP (% 0. 0. 3. 3.))
(SUB P (% 0. 0. 4. 4.))
(POPJ P)
()
(DEFPROP QMP-CONSID-S-PREM-NODE (QMP-CONSID . S-PREM-NODE) DEFSTRUCT-SLOT)
(DEFPROP QMP-CONSID-S-PREM-NODE DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP QMP-CONSID-Q-PREM-NODE (QMP-CONSID . Q-PREM-NODE) DEFSTRUCT-SLOT)
(DEFPROP QMP-CONSID-Q-PREM-NODE DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP MAKE-QMP-CONSID QMP-CONSID DEFSTRUCT-NAME)
(DEFPROP MAKE-QMP-CONSID DEFSTRUCT-EXPAND-CONS-MACRO MACRO)
(DEFPROP QMP-CONSID (ONE HUNK () ((R-GRAPH 0 () () NOTYPE () CONSID-R-GRAPH) (TYPE 1 () 'ORDINARY-CONSID NOTYPE () CONSID-TYPE) (RULE 2 () 'QUANTIFIED-MODUS-PONENS NOTYPE () CONSID-RULE) (PREM-NODES 3 () () NOTYPE () CONSID-PREM-NODES) (CONCL-NODE 4 () () NOTYPE () CONSID-CONCL-NODE) (INHER-REL-STRENGTH 5 () 'CERTAIN-AWPC NOTYPE () CONSID-INHER-REL-STRENGTH) (FORCE 6 () () NOTYPE () CONSID-FORCE) (GOAL-NODES 7 () () NOTYPE () CONSID-GOAL-NODES) (TRAV-LIST 8 () () NOTYPE () CONSID-TRAV-LIST) (Q-PREM-NODE 9 () () NOTYPE () QMP-CONSID-Q-PREM-NODE) (S-PREM-NODE 10 () () NOTYPE () QMP-CONSID-S-PREM-NODE)) () ((MAKE-QMP-CONSID)) () () 11 () QMP-CONSID (REASONING-CONSIDERATION-LINK (RULE 'QUANTIFIED-MODUS-PONENS) (INHER-REL-STRENGTH 'CERTAIN-AWPC)) 0 (EVAL COMPILE LOAD) ALTER-QMP-CONSID QMP-CONSID- () () () () () () ) DEFSTRUCT-DESCRIPTION)
(DEFPROP ALTER-QMP-CONSID QMP-CONSID DEFSTRUCT-NAME)
(DEFPROP ALTER-QMP-CONSID DEFSTRUCT-EXPAND-ALTER-MACRO MACRO)
'QMP-CONSID
(DEFPROP STAT-CONSID-S-PREM-NODE (STAT-CONSID . S-PREM-NODE) DEFSTRUCT-SLOT)
(DEFPROP STAT-CONSID-S-PREM-NODE DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP STAT-CONSID-STAT-PREM-NODE (STAT-CONSID . STAT-PREM-NODE) DEFSTRUCT-SLOT)
(DEFPROP STAT-CONSID-STAT-PREM-NODE DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP MAKE-STAT-CONSID STAT-CONSID DEFSTRUCT-NAME)
(DEFPROP MAKE-STAT-CONSID DEFSTRUCT-EXPAND-CONS-MACRO MACRO)
(DEFPROP STAT-CONSID (ONE HUNK () ((R-GRAPH 0 () () NOTYPE () CONSID-R-GRAPH) (TYPE 1 () 'ORDINARY-CONSID NOTYPE () CONSID-TYPE) (RULE 2 () 'STATISTICAL-SYLLOGISM NOTYPE () CONSID-RULE) (PREM-NODES 3 () () NOTYPE () CONSID-PREM-NODES) (CONCL-NODE 4 () () NOTYPE () CONSID-CONCL-NODE) (INHER-REL-STRENGTH 5 () 'DOUBTLESS-AWPC NOTYPE () CONSID-INHER-REL-STRENGTH) (FORCE 6 () () NOTYPE () CONSID-FORCE) (GOAL-NODES 7 () () NOTYPE () CONSID-GOAL-NODES) (TRAV-LIST 8 () () NOTYPE () CONSID-TRAV-LIST) (STAT-PREM-NODE 9 () () NOTYPE () STAT-CONSID-STAT-PREM-NODE) (S-PREM-NODE 10 () () NOTYPE () STAT-CONSID-S-PREM-NODE)) () ((MAKE-STAT-CONSID)) () () 11 () STAT-CONSID (REASONING-CONSIDERATION-LINK (RULE 'STATISTICAL-SYLLOGISM) (INHER-REL-STRENGTH 'DOUBTLESS-AWPC)) 0 (EVAL COMPILE LOAD) ALTER-STAT-CONSID STAT-CONSID- () () () () () () ) DEFSTRUCT-DESCRIPTION)
(DEFPROP ALTER-STAT-CONSID STAT-CONSID DEFSTRUCT-NAME)
(DEFPROP ALTER-STAT-CONSID DEFSTRUCT-EXPAND-ALTER-MACRO MACRO)
'STAT-CONSID
(DEFPROP NEG-CONSID-N-PREM-NODE (NEG-CONSID . N-PREM-NODE) DEFSTRUCT-SLOT)
(DEFPROP NEG-CONSID-N-PREM-NODE DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP MAKE-NEG-CONSID NEG-CONSID DEFSTRUCT-NAME)
(DEFPROP MAKE-NEG-CONSID DEFSTRUCT-EXPAND-CONS-MACRO MACRO)
(DEFPROP NEG-CONSID (ONE HUNK () ((R-GRAPH 0 () () NOTYPE () CONSID-R-GRAPH) (TYPE 1 () 'ORDINARY-CONSID NOTYPE () CONSID-TYPE) (RULE 2 () 'NEGATION NOTYPE () CONSID-RULE) (PREM-NODES 3 () () NOTYPE () CONSID-PREM-NODES) (CONCL-NODE 4 () () NOTYPE () CONSID-CONCL-NODE) (INHER-REL-STRENGTH 5 () 'CERTAINLY-FALSE-AWPC NOTYPE () CONSID-INHER-REL-STRENGTH) (FORCE 6 () () NOTYPE () CONSID-FORCE) (GOAL-NODES 7 () () NOTYPE () CONSID-GOAL-NODES) (TRAV-LIST 8 () () NOTYPE () CONSID-TRAV-LIST) (N-PREM-NODE 9 () () NOTYPE () NEG-CONSID-N-PREM-NODE)) () ((MAKE-NEG-CONSID)) () () 10 () NEG-CONSID (REASONING-CONSIDERATION-LINK (RULE 'NEGATION) (INHER-REL-STRENGTH 'CERTAINLY-FALSE-AWPC)) 0 (EVAL COMPILE LOAD) ALTER-NEG-CONSID NEG-CONSID- () () () () () () ) DEFSTRUCT-DESCRIPTION)
(DEFPROP ALTER-NEG-CONSID NEG-CONSID DEFSTRUCT-NAME)
(DEFPROP ALTER-NEG-CONSID DEFSTRUCT-EXPAND-ALTER-MACRO MACRO)
'NEG-CONSID
(DEFPROP MAKE-DN-CONSID DN-CONSID DEFSTRUCT-NAME)
(DEFPROP MAKE-DN-CONSID DEFSTRUCT-EXPAND-CONS-MACRO MACRO)
(DEFPROP DN-CONSID (ONE HUNK () ((R-GRAPH 0 () () NOTYPE () CONSID-R-GRAPH) (TYPE 1 () 'ORDINARY-CONSID NOTYPE () CONSID-TYPE) (RULE 2 () 'DEDUCTIVE-NECESSARY NOTYPE () CONSID-RULE) (PREM-NODES 3 () () NOTYPE () CONSID-PREM-NODES) (CONCL-NODE 4 () () NOTYPE () CONSID-CONCL-NODE) (INHER-REL-STRENGTH 5 () () NOTYPE () CONSID-INHER-REL-STRENGTH) (FORCE 6 () () NOTYPE () CONSID-FORCE) (GOAL-NODES 7 () () NOTYPE () CONSID-GOAL-NODES) (TRAV-LIST 8 () () NOTYPE () CONSID-TRAV-LIST)) () ((MAKE-DN-CONSID)) () () 9 () DN-CONSID (REASONING-CONSIDERATION-LINK (RULE 'DEDUCTIVE-NECESSARY)) 0 (EVAL COMPILE LOAD) ALTER-DN-CONSID DN-CONSID- () () () () () () ) DEFSTRUCT-DESCRIPTION)
(DEFPROP ALTER-DN-CONSID DN-CONSID DEFSTRUCT-NAME)
(DEFPROP ALTER-DN-CONSID DEFSTRUCT-EXPAND-ALTER-MACRO MACRO)
'DN-CONSID
(DEFPROP CINF-CONSID-CC-PREMS (CINF-CONSID . CC-PREMS) DEFSTRUCT-SLOT)
(DEFPROP CINF-CONSID-CC-PREMS DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP CINF-CONSID-INF-LAWS (CINF-CONSID . INF-LAWS) DEFSTRUCT-SLOT)
(DEFPROP CINF-CONSID-INF-LAWS DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP MAKE-CINF-CONSID CINF-CONSID DEFSTRUCT-NAME)
(DEFPROP MAKE-CINF-CONSID DEFSTRUCT-EXPAND-CONS-MACRO MACRO)
(DEFPROP CINF-CONSID (ONE HUNK () ((R-GRAPH 0 () () NOTYPE () CONSID-R-GRAPH) (TYPE 1 () 'ORDINARY-CONSID NOTYPE () CONSID-TYPE) (RULE 2 () 'CAUSAL-INFLUENCE NOTYPE () CONSID-RULE) (PREM-NODES 3 () () NOTYPE () CONSID-PREM-NODES) (CONCL-NODE 4 () () NOTYPE () CONSID-CONCL-NODE) (INHER-REL-STRENGTH 5 () () NOTYPE () CONSID-INHER-REL-STRENGTH) (FORCE 6 () () NOTYPE () CONSID-FORCE) (GOAL-NODES 7 () () NOTYPE () CONSID-GOAL-NODES) (TRAV-LIST 8 () () NOTYPE () CONSID-TRAV-LIST) (INF-LAWS 9 () () NOTYPE () CINF-CONSID-INF-LAWS) (CC-PREMS 10 () () NOTYPE () CINF-CONSID-CC-PREMS)) () ((MAKE-CINF-CONSID)) () () 11 () CINF-CONSID (REASONING-CONSIDERATION-LINK (RULE 'CAUSAL-INFLUENCE)) 0 (EVAL COMPILE LOAD) ALTER-CINF-CONSID CINF-CONSID- () () () () () () ) DEFSTRUCT-DESCRIPTION)
(DEFPROP ALTER-CINF-CONSID CINF-CONSID DEFSTRUCT-NAME)
(DEFPROP ALTER-CINF-CONSID DEFSTRUCT-EXPAND-ALTER-MACRO MACRO)
'CINF-CONSID
(DEFPROP CACT-CONSID-C-M-PREM (CACT-CONSID . C-M-PREM) DEFSTRUCT-SLOT)
(DEFPROP CACT-CONSID-C-M-PREM DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP CACT-CONSID-I-PREMS (CACT-CONSID . I-PREMS) DEFSTRUCT-SLOT)
(DEFPROP CACT-CONSID-I-PREMS DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP CACT-CONSID-AL-PREM (CACT-CONSID . AL-PREM) DEFSTRUCT-SLOT)
(DEFPROP CACT-CONSID-AL-PREM DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP MAKE-CACT-CONSID CACT-CONSID DEFSTRUCT-NAME)
(DEFPROP MAKE-CACT-CONSID DEFSTRUCT-EXPAND-CONS-MACRO MACRO)
(DEFPROP CACT-CONSID (ONE HUNK () ((R-GRAPH 0 () () NOTYPE () CONSID-R-GRAPH) (TYPE 1 () 'ORDINARY-CONSID NOTYPE () CONSID-TYPE) (RULE 2 () 'CAUSAL-ACTION NOTYPE () CONSID-RULE) (PREM-NODES 3 () () NOTYPE () CONSID-PREM-NODES) (CONCL-NODE 4 () () NOTYPE () CONSID-CONCL-NODE) (INHER-REL-STRENGTH 5 () () NOTYPE () CONSID-INHER-REL-STRENGTH) (FORCE 6 () () NOTYPE () CONSID-FORCE) (GOAL-NODES 7 () () NOTYPE () CONSID-GOAL-NODES) (TRAV-LIST 8 () () NOTYPE () CONSID-TRAV-LIST) (AL-PREM 9 () () NOTYPE () CACT-CONSID-AL-PREM) (I-PREMS 10 () () NOTYPE () CACT-CONSID-I-PREMS) (C-M-PREM 11 () () NOTYPE () CACT-CONSID-C-M-PREM)) () ((MAKE-CACT-CONSID)) () () 12 () CACT-CONSID (REASONING-CONSIDERATION-LINK (RULE 'CAUSAL-ACTION)) 0 (EVAL COMPILE LOAD) ALTER-CACT-CONSID CACT-CONSID- () () () () () () ) DEFSTRUCT-DESCRIPTION)
(DEFPROP ALTER-CACT-CONSID CACT-CONSID DEFSTRUCT-NAME)
(DEFPROP ALTER-CACT-CONSID DEFSTRUCT-EXPAND-ALTER-MACRO MACRO)
'CACT-CONSID
(DEFPROP CAUS-CONSID-C-PREM (CAUS-CONSID . C-PREM) DEFSTRUCT-SLOT)
(DEFPROP CAUS-CONSID-C-PREM DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP CAUS-CONSID-ACT-LAW (CAUS-CONSID . ACT-LAW) DEFSTRUCT-SLOT)
(DEFPROP CAUS-CONSID-ACT-LAW DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP CAUS-CONSID-CC-PREMS (CAUS-CONSID . CC-PREMS) DEFSTRUCT-SLOT)
(DEFPROP CAUS-CONSID-CC-PREMS DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP CAUS-CONSID-INF-LAWS (CAUS-CONSID . INF-LAWS) DEFSTRUCT-SLOT)
(DEFPROP CAUS-CONSID-INF-LAWS DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP MAKE-CAUS-CONSID CAUS-CONSID DEFSTRUCT-NAME)
(DEFPROP MAKE-CAUS-CONSID DEFSTRUCT-EXPAND-CONS-MACRO MACRO)
(DEFPROP CAUS-CONSID (ONE HUNK () ((R-GRAPH 0 () () NOTYPE () CONSID-R-GRAPH) (TYPE 1 () 'ORDINARY-CONSID NOTYPE () CONSID-TYPE) (RULE 2 () 'CAUSAL-CONSEQUENCE NOTYPE () CONSID-RULE) (PREM-NODES 3 () () NOTYPE () CONSID-PREM-NODES) (CONCL-NODE 4 () () NOTYPE () CONSID-CONCL-NODE) (INHER-REL-STRENGTH 5 () () NOTYPE () CONSID-INHER-REL-STRENGTH) (FORCE 6 () () NOTYPE () CONSID-FORCE) (GOAL-NODES 7 () () NOTYPE () CONSID-GOAL-NODES) (TRAV-LIST 8 () () NOTYPE () CONSID-TRAV-LIST) (INF-LAWS 9 () () NOTYPE () CAUS-CONSID-INF-LAWS) (CC-PREMS 10 () () NOTYPE () CAUS-CONSID-CC-PREMS) (ACT-LAW 11 () () NOTYPE () CAUS-CONSID-ACT-LAW) (C-PREM 12 () () NOTYPE () CAUS-CONSID-C-PREM)) () ((MAKE-CAUS-CONSID)) () () 13 () CAUS-CONSID (REASONING-CONSIDERATION-LINK (RULE 'CAUSAL-CONSEQUENCE)) 0 (EVAL COMPILE LOAD) ALTER-CAUS-CONSID CAUS-CONSID- () () () () () () ) DEFSTRUCT-DESCRIPTION)
(DEFPROP ALTER-CAUS-CONSID CAUS-CONSID DEFSTRUCT-NAME)
(DEFPROP ALTER-CAUS-CONSID DEFSTRUCT-EXPAND-ALTER-MACRO MACRO)
'CAUS-CONSID
(DEFPROP R-EXPERT-BM-PREDICATE (REASONING-EXPERT . BM-PREDICATE) DEFSTRUCT-SLOT)
(DEFPROP R-EXPERT-BM-PREDICATE DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP R-EXPERT-FM-PREDICATES (REASONING-EXPERT . FM-PREDICATES) DEFSTRUCT-SLOT)
(DEFPROP R-EXPERT-FM-PREDICATES DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP R-EXPERT-BACKWARD-METHOD (REASONING-EXPERT . BACKWARD-METHOD) DEFSTRUCT-SLOT)
(DEFPROP R-EXPERT-BACKWARD-METHOD DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP R-EXPERT-FORWARD-METHOD (REASONING-EXPERT . FORWARD-METHOD) DEFSTRUCT-SLOT)
(DEFPROP R-EXPERT-FORWARD-METHOD DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP R-EXPERT-DESCRIPTION (REASONING-EXPERT . DESCRIPTION) DEFSTRUCT-SLOT)
(DEFPROP R-EXPERT-DESCRIPTION DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP R-EXPERT-R∨H-NAME (REASONING-EXPERT . R∨H-NAME) DEFSTRUCT-SLOT)
(DEFPROP R-EXPERT-R∨H-NAME DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP R-EXPERT-TYPE (REASONING-EXPERT . TYPE) DEFSTRUCT-SLOT)
(DEFPROP R-EXPERT-TYPE DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP MAKE-REASONING-EXPERT REASONING-EXPERT DEFSTRUCT-NAME)
(DEFPROP MAKE-REASONING-EXPERT DEFSTRUCT-EXPAND-CONS-MACRO MACRO)
(DEFPROP REASONING-EXPERT (ONE HUNK () ((TYPE 0 () %%DEFSTRUCT-EMPTY%% NOTYPE () R-EXPERT-TYPE) (R∨H-NAME 1 () %%DEFSTRUCT-EMPTY%% NOTYPE () R-EXPERT-R∨H-NAME) (DESCRIPTION 2 () %%DEFSTRUCT-EMPTY%% NOTYPE () R-EXPERT-DESCRIPTION) (FORWARD-METHOD 3 () %%DEFSTRUCT-EMPTY%% NOTYPE () R-EXPERT-FORWARD-METHOD) (BACKWARD-METHOD 4 () %%DEFSTRUCT-EMPTY%% NOTYPE () R-EXPERT-BACKWARD-METHOD) (FM-PREDICATES 5 () %%DEFSTRUCT-EMPTY%% NOTYPE () R-EXPERT-FM-PREDICATES) (BM-PREDICATE 6 () %%DEFSTRUCT-EMPTY%% NOTYPE () R-EXPERT-BM-PREDICATE)) () ((MAKE-REASONING-EXPERT)) () () 7 () REASONING-EXPERT () 0 (EVAL COMPILE LOAD) ALTER-REASONING-EXPERT R-EXPERT- () () () () () () ) DEFSTRUCT-DESCRIPTION)
(DEFPROP ALTER-REASONING-EXPERT REASONING-EXPERT DEFSTRUCT-NAME)
(DEFPROP ALTER-REASONING-EXPERT DEFSTRUCT-EXPAND-ALTER-MACRO MACRO)
'REASONING-EXPERT
(LAP LTI-CREATE-WFF-NEGATION SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS LTI-CREATE-WFF-NEGATION (() . 1.))
(PUSH P 1.)
(CALL 1. 'LT-TYPE)
(CAIE 1. 'NEGPROPO)
(JRST 0. G0002)
(HRRZ 3. @ 0. P)
(HLRZ 3. 0. 3.)
(SETZB 2. 1.)
(CALL 3. 'SUBST)
(JRST 0. G0001)
G0002
(MOVE 3. 0. P)
(SETZB 2. 1.)
(CALL 3. 'SUBST)
(JSP T %NCONS)
(MOVEI 2. '¬)
(JSP T %XCONS)
G0001
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(FLUSH-MACROMEMOS 'A-GET 'FLUSH-MACROMEMOS)
(DEFPROP A-GET |A-GET MACRO| MACRO)
(LAP |A-GET MACRO| SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS |A-GET MACRO| (() . 1.))
(COMMENT ARGLIST = (A-LIST INDICATOR))
(PUSH P 1.)
(CALL 1. 'MACROFETCH)
(JUMPN 1. G0002)
(MOVE 1. 0. P)
(NCALL 1. 'LENGTH)
(CAIN 7. 3.)
(JRST 0. G0004)
(MOVEI T G0006)
(PUSH P T)
(PUSH P (% 0. 0. '|Wrong number args for macro|))
(PUSH P -2. P)
(MOVNI T 2.)
(JCALL 14. 'ERROR)
G0006
G0004
(HRRZ 1. @ 0. P)
(HLRZ 2. 0. 1.)
(HRRZ 3. 0. 1.)
(HLRZ 3. 0. 3.)
(EXCH 1. 2.)
(PUSH P 3.)
(JSP T %NCONS)
(POP P 2.)
(JSP T %XCONS)
(MOVEI 2. 'ASSQ)
(JSP T %XCONS)
(JSP T %NCONS)
(MOVEI 2. 'CDR)
(JSP T %XCONS)
(MOVEI 3. 'A-GET)
(MOVEI 2. 0. 1.)
(MOVE 1. 0. P)
(CALL 3. 'MACROMEMO)
G0002
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(FLUSH-MACROMEMOS 'R-A-GET 'FLUSH-MACROMEMOS)
(DEFPROP R-A-GET |R-A-GET MACRO| MACRO)
(LAP |R-A-GET MACRO| SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS |R-A-GET MACRO| (() . 1.))
(COMMENT ARGLIST = (A-LIST INDICATOR))
(PUSH P 1.)
(CALL 1. 'MACROFETCH)
(JUMPN 1. G0002)
(MOVE 1. 0. P)
(NCALL 1. 'LENGTH)
(CAIN 7. 3.)
(JRST 0. G0004)
(MOVEI T G0006)
(PUSH P T)
(PUSH P (% 0. 0. '|Wrong number args for macro|))
(PUSH P -2. P)
(MOVNI T 2.)
(JCALL 14. 'ERROR)
G0006
G0004
(HRRZ 1. @ 0. P)
(HLRZ 2. 0. 1.)
(HRRZ 3. 0. 1.)
(HLRZ 3. 0. 3.)
(EXCH 1. 2.)
(PUSH P 3.)
(JSP T %NCONS)
(POP P 2.)
(JSP T %XCONS)
(MOVEI 2. 'RASSQ)
(JSP T %XCONS)
(JSP T %NCONS)
(MOVEI 2. 'CAR)
(JSP T %XCONS)
(MOVEI 3. 'R-A-GET)
(MOVEI 2. 0. 1.)
(MOVE 1. 0. P)
(CALL 3. 'MACROMEMO)
G0002
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(FLUSH-MACROMEMOS 'CSR:NEGATE-BEL-LEVEL 'FLUSH-MACROMEMOS)
(DEFPROP CSR:NEGATE-BEL-LEVEL |CSR:NEGATE-BEL-LEVEL MACRO| MACRO)
(LAP |CSR:NEGATE-BEL-LEVEL MACRO| SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS |CSR:NEGATE-BEL-LEVEL MACRO| (() . 1.))
(COMMENT ARGLIST = (BEL-LEVEL))
(PUSH P 1.)
(CALL 1. 'MACROFETCH)
(JUMPN 1. G0001)
(MOVE 1. 0. P)
(NCALL 1. 'LENGTH)
(CAIN 7. 2.)
(JRST 0. G0003)
(MOVEI T G0005)
(PUSH P T)
(PUSH P (% 0. 0. '|Wrong number args for macro|))
(PUSH P -2. P)
(MOVNI T 2.)
(JCALL 14. 'ERROR)
G0005
G0003
(HRRZ 1. @ 0. P)
(HLRZ 1. 0. 1.)
(JSP T %NCONS)
(MOVEI 2. '*BL-NEG-INDEX*)
(JSP T %XCONS)
(MOVEI 2. 'A-GET)
(JSP T %XCONS)
(MOVEI 3. 'CSR:NEGATE-BEL-LEVEL)
(MOVEI 2. 0. 1.)
(MOVE 1. 0. P)
(CALL 3. 'MACROMEMO)
G0001
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP CSR:INITIALIZE-R-GRAPH SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:INITIALIZE-R-GRAPH (() . 1.))
(PUSH P 1.)
(MOVEI T G0002)
(PUSH P T)
(PUSH P (% 0. 0. '() ))
(PUSH P (% 0. 0. '() ))
(PUSH P (% 0. 0. '() ))
(PUSH P (% 0. 0. '() ))
(PUSH P (% 0. 0. '() ))
(PUSH P (% 0. 0. '() ))
(HRRZ 1. 0. 1.)
(PUSH P 1.)
(MOVNI T 7.)
(JCALL 14. 'HUNK)
G0002
(PUSH P 1.)
(MOVEI 4. 'FRONTIER)
(MOVEI 3. 'TARGET)
(MOVEI 2. 0. 1.)
(MOVE 1. -1. P)
(CALL 4. 'CSR:UPDATE-R-GRAPH)
(PUSH P 1.)
(HLRZ 2. @ -1. P)
(CALL 2. 'MEMQ)
(JUMPN 1. G0006)
(HLRZ 2. @ -1. P)
(MOVE 1. 0. P)
(JSP T %CONS)
(HRLM 1. @ -1. P)
G0006
(POP P 1.)
(SUB P (% 0. 0. 2. 2.))
(POPJ P)
()
(LAP CSR:UPDATE-R-GRAPH SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:UPDATE-R-GRAPH (() . 4.))
(COMMENT ARGLIST = (BLF∨QRY R-GRAPH NODE-TYPE BORDER &AUX NEW-NEGATION-NODE))
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(PUSH P 4.)
(PUSH P (% 0. 0. '() ))
(CALL 3. 'CSR:GET-RP-NODE)
(PUSH P 1.)
(JUMPN 1. G0020)
(MOVE 1. -5. P)
(HLRZ 1. 1. 1.)
(MOVEI 2. 0. 1.)
(HRRZ 2. 1. 2.)
(MOVEI 1. 'RLVT-CONSIDS)
(CALL 2. 'ASSQ)
(HRRZ 1. 0. 1.)
(PUSH P 1.)
(MOVEI T G0026)
(PUSH P T)
(PUSH P -5. P)
(PUSH P -8. P)
(PUSH P 1.)
(PUSH P (% 0. 0. '() ))
(PUSH P (% 0. 0. '() ))
(PUSH P (% 0. 0. '() ))
(PUSH P -12. P)
(MOVNI T 7.)
(JCALL 14. 'HUNK)
G0026
(PUSH P 1.)
(SKIPN 0. -1. P)
(JRST 0. G0028)
(PUSH P -1. P)
G0008
(SKIPN 0. 0. P)
(JRST 0. G0031)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(HRRZ 1. 2. 1.)
(CAIE 1. '***)
(JRST 0. G0033)
(MOVE 1. 0. P)
(MOVE 5. -2. P)
(HRRM 5. 2. 1.)
(HRRZ 1. 0. 5.)
(HRRM 1. @ 0. P)
G0033
(SUB P (% 0. 0. 1. 1.))
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0008)
G0031
(SUB P (% 0. 0. 1. 1.))
G0028
(MOVE 3. -5. P)
(MOVE 2. -6. P)
(MOVE 1. 0. P)
(CALL 3. 'CSR:UPDATE-RG-DIRECTORY)
(MOVEI 1. 'TARGET)
(CAME 1. -5. P)
(JRST 0. G0038)
(MOVEI T G0040)
(PUSH P T)
(PUSH P -6. P)
(MOVE 1. -9. P)
(CALL 1. 'CSR:CREATE-B∨Q-NEGATION)
(PUSH P 1.)
(PUSH P (% 0. 0. '() ))
(PUSH P (% 0. 0. '() ))
(PUSH P -5. P)
(PUSH P (% 0. 0. '() ))
(PUSH P -13. P)
(MOVNI T 7.)
(JCALL 14. 'HUNK)
G0040
(MOVE 5. 0. P)
(PUSH P 1.)
(HRLM 1. 2. 5.)
(MOVE 3. -6. P)
(MOVE 2. -7. P)
(EXCH 1. 0. P)
(CALL 3. 'CSR:UPDATE-RG-DIRECTORY)
(POP P -4. P)
G0038
(POP P 1.)
(SUB P (% 0. 0. 1. 1.))
G0020
(SUB P (% 0. 0. 1. 1.))
(PUSH P 1.)
(MOVE 1. -3. P)
(CAIE 1. 'KNOWLEDGE)
(JRST 0. G0046)
(MOVE 1. -2. P)
(CAIE 1. 'BASIS)
(JRST 0. G0047)
(MOVE 2. -4. P)
(HRRZ 2. 2. 2.)
(MOVE 1. 0. P)
(CALL 2. 'MEMQ)
(JUMPN 1. G0045)
(MOVE 1. -4. P)
(HRRZ 1. 2. 1.)
(MOVE 2. 0. P)
(JSP T %XCONS)
(MOVE 5. -4. P)
(PUSH P 1.)
(HRRM 1. 2. 5.)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0045)
G0047
(CAIE 1. 'FRONTIER)
(JRST 0. G0053)
(MOVE 2. -4. P)
(HLRZ 2. 2. 2.)
(MOVE 1. 0. P)
(CALL 2. 'MEMQ)
(JUMPN 1. G0045)
(MOVE 1. -4. P)
(HLRZ 1. 2. 1.)
(MOVE 2. 0. P)
(JSP T %XCONS)
(MOVE 5. -4. P)
(PUSH P 1.)
(HRLM 1. 2. 5.)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0045)
G0053
(MOVEI 2. '|CSR:GENERAL-UPDATE-BORDER - bad value for BORDER|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
(JRST 0. G0045)
G0046
(CAIE 1. 'TARGET)
(JRST 0. G0060)
(MOVE 1. -2. P)
(CAIE 1. 'BASIS)
(JRST 0. G0061)
(HLRZ 2. @ -4. P)
(MOVE 1. 0. P)
(CALL 2. 'MEMQ)
(JUMPN 1. G0045)
(HLRZ 2. @ -4. P)
(MOVE 1. 0. P)
(JSP T %CONS)
(HRLM 1. @ -4. P)
(JRST 0. G0045)
G0061
(CAIE 1. 'FRONTIER)
(JRST 0. G0067)
(MOVE 2. -4. P)
(HRRZ 2. 1. 2.)
(MOVE 1. 0. P)
(CALL 2. 'MEMQ)
(JUMPN 1. G0045)
(MOVE 1. -4. P)
(HRRZ 1. 1. 1.)
(MOVE 2. 0. P)
(JSP T %XCONS)
(MOVE 5. -4. P)
(PUSH P 1.)
(HRRM 1. 1. 5.)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0045)
G0067
(MOVEI 2. '|CSR:GENERAL-UPDATE-BORDER - bad value for BORDER|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
(JRST 0. G0045)
G0060
(MOVEI 2. '|CSR:GENERAL-UPADATE-BORDER - bad value for NODE-TYPE|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0045
(SKIPN 0. -1. P)
(JRST 0. G0075)
(MOVE 1. -3. P)
(CAIE 1. 'KNOWLEDGE)
(JRST 0. G0077)
(MOVE 1. -2. P)
(CAIE 1. 'BASIS)
(JRST 0. G0078)
(MOVE 2. -4. P)
(HRRZ 2. 2. 2.)
(MOVE 1. -1. P)
(CALL 2. 'MEMQ)
(JUMPN 1. G0075)
(MOVE 1. -4. P)
(HRRZ 1. 2. 1.)
(MOVE 2. -1. P)
(JSP T %XCONS)
(MOVE 5. -4. P)
(PUSH P 1.)
(HRRM 1. 2. 5.)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0075)
G0078
(CAIE 1. 'FRONTIER)
(JRST 0. G0084)
(MOVE 2. -4. P)
(HLRZ 2. 2. 2.)
(MOVE 1. -1. P)
(CALL 2. 'MEMQ)
(JUMPN 1. G0075)
(MOVE 1. -4. P)
(HLRZ 1. 2. 1.)
(MOVE 2. -1. P)
(JSP T %XCONS)
(MOVE 5. -4. P)
(PUSH P 1.)
(HRLM 1. 2. 5.)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0075)
G0084
(MOVEI 2. '|CSR:GENERAL-UPDATE-BORDER - bad value for BORDER|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
(JRST 0. G0075)
G0077
(CAIE 1. 'TARGET)
(JRST 0. G0091)
(MOVE 1. -2. P)
(CAIE 1. 'BASIS)
(JRST 0. G0092)
(HLRZ 2. @ -4. P)
(MOVE 1. -1. P)
(CALL 2. 'MEMQ)
(JUMPN 1. G0075)
(HLRZ 2. @ -4. P)
(MOVE 1. -1. P)
(JSP T %CONS)
(HRLM 1. @ -4. P)
(JRST 0. G0075)
G0092
(CAIE 1. 'FRONTIER)
(JRST 0. G0098)
(MOVE 2. -4. P)
(HRRZ 2. 1. 2.)
(MOVE 1. -1. P)
(CALL 2. 'MEMQ)
(JUMPN 1. G0075)
(MOVE 1. -4. P)
(HRRZ 1. 1. 1.)
(MOVE 2. -1. P)
(JSP T %XCONS)
(MOVE 5. -4. P)
(PUSH P 1.)
(HRRM 1. 1. 5.)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0075)
G0098
(MOVEI 2. '|CSR:GENERAL-UPDATE-BORDER - bad value for BORDER|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
(JRST 0. G0075)
G0091
(MOVEI 2. '|CSR:GENERAL-UPADATE-BORDER - bad value for NODE-TYPE|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0075
(POP P 1.)
(SUB P (% 0. 0. 5. 5.))
(POPJ P)
()
(LAP CSR:GET-RP-NODE SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:GET-RP-NODE (() . 3.))
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(CAIE 3. 'TARGET)
(JRST 0. G0006)
(MOVEI 1. 0. 2.)
(HLRZ 1. 1. 1.)
(JRST 0. G0005)
G0006
(CAIE 3. 'KNOWLEDGE)
(JRST 0. G0008)
(MOVEI 1. 0. 2.)
(HRRZ 1. 3. 1.)
(JRST 0. G0005)
G0008
(MOVEI 2. '|CSR:GET-RP-NODE - improper directory-type.|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0005
(MOVE 5. -2. P)
(HRRZ 5. 1. 5.)
(MOVEI 2. 0. 1.)
(HRRZ 1. @ -2. P)
(MOVE 4. -2. P)
(HLRZ 4. 1. 4.)
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 4.)
(PUSH P 5.)
(PUSH P 2.)
(PUSH P (% 0. 0. '() ))
G0002
(SKIPN 0. -1. P)
(JRST 0. G0017)
(HLRZ 1. @ -1. P)
(MOVEM 1. 0. P)
(MOVEI 2. 'FORMULA)
(MOVE 1. -2. P)
(CALL 2. 'GET)
(MOVEI 2. 'FORMULA)
(PUSH P 1.)
(HRRZ 1. @ -1. P)
(CALL 2. 'GET)
(POP P 2.)
(CALL 2. 'EQUAL)
(JUMPE 1. G0019)
(HLRZ 2. @ 0. P)
(CAME 2. -5. P)
(JRST 0. G0019)
(MOVE 1. 0. P)
(HRRZ 1. 1. 1.)
(HRRZ 1. 1. 1.)
(MOVEI 2. 0. 1.)
(HLRZ 2. 1. 2.)
(MOVE 1. -3. P)
(CALL 2. 'EQUAL-EPISTATI)
(JUMPN 1. G0026)
(MOVEI 2. '|CSR:GET-RP-NODE - epistatus mismatch. ok, or not?|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
(JUMPE 1. G0019)
G0026
(MOVE 1. 0. P)
(HRRZ 1. 1. 1.)
(JRST 0. G0033)
G0019
(HRRZ 1. @ -1. P)
(MOVEM 1. -1. P)
(JRST 0. G0002)
G0017
(MOVEI 1. '() )
G0033
(SUB P (% 0. 0. 9. 9.))
(POPJ P)
()
(LAP CSR:UPDATE-RG-DIRECTORY SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:UPDATE-RG-DIRECTORY (() . 3.))
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(HRRZ 1. 1. 1.)
(PUSH P 1.)
(MOVEI 3. 0. 1.)
(HRRZ 3. 1. 3.)
(MOVE 1. -3. P)
(JSP T PDLNMK)
(EXCH 2. 1.)
(HRRZ 1. @ 0. P)
(JSP T %HUNK3)
(PUSH P 1.)
(MOVE 1. -2. P)
(CAIE 1. 'TARGET)
(JRST 0. G0007)
(MOVE 1. -3. P)
(HLRZ 1. 1. 1.)
(MOVE 2. 0. P)
(JSP T %XCONS)
(MOVE 5. -3. P)
(PUSH P 1.)
(HRLM 1. 1. 5.)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0006)
G0007
(CAIE 1. 'KNOWLEDGE)
(JRST 0. G0011)
(MOVE 1. -3. P)
(HRRZ 1. 3. 1.)
(MOVE 2. 0. P)
(JSP T %XCONS)
(MOVE 5. -3. P)
(PUSH P 1.)
(HRRM 1. 3. 5.)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0006)
G0011
(MOVEI 1. '() )
G0006
(SUB P (% 0. 0. 5. 5.))
(POPJ P)
()
(LAP CSR:INSTALL-CONSID-LINK SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:INSTALL-CONSID-LINK (() . 1.))
(COMMENT ARGLIST = (CONSID &AUX (CONCL-NODE (CONSID-CONCL-NODE CONSID))))
(PUSH P 1.)
(HRRZ 1. 2. 1.)
(PUSH P 1.)
(HLRZ 1. 1. 1.)
(MOVE 2. -1. P)
(JSP T %PDLXC)
(MOVE 5. 0. P)
(PUSH P 1.)
(HRLM 1. 1. 5.)
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. -1. P)
(HLRZ 1. 1. 1.)
(PUSH P 1.)
G0004
(SKIPN 0. 0. P)
(JRST 0. G0011)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(HRRZ 1. 2. 1.)
(MOVE 2. -3. P)
(JSP T %PDLXC)
(POP P 5.)
(PUSH P 1.)
(HRRM 1. 2. 5.)
(SUB P (% 0. 0. 1. 1.))
(HRRZ 2. @ 0. P)
(MOVEM 2. 0. P)
(JRST 0. G0004)
G0011
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. @ 0. P)
(CAIE 1. 'TARGET)
(JRST 0. G0017)
(MOVE 1. -1. P)
(HLRZ 1. 3. 1.)
(JUMPN 1. G0017)
(MOVE 1. 0. P)
(CALL 1. 'CSR:PROPAGATE-DETERMINACY)
(JRST 0. G0016)
G0017
(MOVEI 1. '() )
G0016
(SUB P (% 0. 0. 2. 2.))
(POPJ P)
()
(LAP CSR:PROPAGATE-DETERMINACY SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:PROPAGATE-DETERMINACY (() . 1.))
(COMMENT ARGLIST = (RP-CONCL-NODE &AUX CHANGE-FLAG))
(PUSH P 1.)
(PUSH P (% 0. 0. '() ))
(HRRZ 1. 2. 1.)
(PUSH P 1.)
(PUSH P 1.)
G0004
(SKIPN 0. 0. P)
(JRST 0. G0008)
(HLRZ 1. @ 0. P)
(SETZM 0. -2. P)
(PUSH P 1.)
(HLRZ 1. 3. 1.)
(JUMPE 1. G0010)
(HLRZ 5. 0. 1.)
(HRRZ 1. 0. 1.)
(CAME 5. -4. P)
(JRST 0. (* -4.))
(MOVE 2. 0. P)
(HLRZ 2. 3. 2.)
(MOVE 1. -4. P)
(CALL 2. '*DELQ)
(MOVE 5. 0. P)
(PUSH P 1.)
(HRLM 1. 3. 5.)
(SUB P (% 0. 0. 1. 1.))
(MOVEI 5. 'T)
(MOVEM 5. -3. P)
G0010
(MOVE 1. 0. P)
(HRRZ 1. 2. 1.)
(PUSH P 1.)
(SKIPN 0. -4. P)
(JRST 0. G0016)
(MOVE 1. -1. P)
(HLRZ 1. 3. 1.)
(JUMPN 1. G0016)
(MOVE 1. 0. P)
(CALL 1. 'CSR:PROPAGATE-DETERMINACY)
G0016
(SUB P (% 0. 0. 2. 2.))
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0004)
G0008
(SUB P (% 0. 0. 1. 1.))
(POP P 1.)
(SUB P (% 0. 0. 2. 2.))
(POPJ P)
()
(LAP EQUAL-EPISTATI SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS EQUAL-EPISTATI (() . 2.))
(PUSH P 1.)
(PUSH P 2.)
(HLRZ 2. 0. 2.)
(HLRZ 1. 0. 1.)
(CALL 2. 'EQUAL)
(JUMPE 1. G0002)
(MOVE 1. -1. P)
(HRRZ 1. 1. 1.)
(MOVE 2. 0. P)
(HRRZ 2. 1. 2.)
(CALL 2. 'EQUAL)
(JUMPE 1. G0002)
(MOVE 1. -1. P)
(HLRZ 1. 1. 1.)
(MOVE 2. 0. P)
(HLRZ 2. 1. 2.)
(CALL 2. 'EQUAL)
(JUMPE 1. G0002)
(HRRZ 2. @ 0. P)
(HRRZ 1. @ -1. P)
(CALL 2. 'EQUAL)
G0002
(SUB P (% 0. 0. 2. 2.))
(POPJ P)
()
(LAP CSR:CREATE-B∨Q-NEGATION SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:CREATE-B∨Q-NEGATION (() . 1.))
(PUSH P 1.)
(HRRZ 1. 1. 1.)
(MOVEI 2. 'FORMULA)
(CALL 2. 'GET)
(PUSH P 1.)
(CALL 1. 'LT-TYPE)
(CAIE 1. 'NEGPROPO)
(TDZA 1. 1.)
(MOVEI 1. 'T)
(PUSH P 1.)
(HLRZ 1. @ -2. P)
(PUSH P 1.)
(MOVEI 1. '*P-UNIT*)
(JSP T %NCONS)
(PUSH P 1.)
(MOVE 1. -4. P)
(HRRZ 1. 1. 1.)
(SKIPN 0. 1.)
(SKIPA 1. NILPROPS)
(HRRZ 1. 0. 1.)
(MOVEI 2. '() )
(CALL 2. '*APPEND)
(SKIPN 2. 0. P)
(MOVEI 2. NILPROPS)
(HRRM 1. 0. 2.)
(POP P 2.)
(MOVE 1. -3. P)
(HLRZ 1. 1. 1.)
(MOVE 5. -3. P)
(HLRZ 5. 1. 5.)
(HRRZ 5. 1. 5.)
(MOVE 4. -3. P)
(HLRZ 4. 1. 4.)
(MOVEI 3. 0. 4.)
(HLRZ 3. 1. 3.)
(MOVE 4. -3. P)
(HLRZ 4. 1. 4.)
(HRRZ 4. 0. 4.)
(EXCH 2. 5.)
(HLRZ 1. 0. 1.)
(PUSH P 5.)
(JSP T %HUNK4)
(HRRZ 4. @ -4. P)
(MOVEI 3. 0. 1.)
(POP P 2.)
(POP P 1.)
(JSP T %HUNK4)
(PUSH P 1.)
(HRRZ 1. 1. 1.)
(PUSH P 1.)
(MOVE 1. -1. P)
(HLRZ 1. 1. 1.)
(PUSH P 1.)
(HLRZ 1. 0. 1.)
(PUSH P 1.)
(PUSH P (% 0. 0. '() ))
(MOVEI 1. 0. P)
(PUSH P 1.)
(MOVEI 2. 'F-DESCRIPTS)
(MOVE 1. -4. P)
(CALL 2. 'GET)
(PUSH P 1.)
G0005
(SKIPN 0. 0. P)
(JRST 0. G0036)
(HLRZ 1. @ 0. P)
(HRRZ 2. 0. 1.)
(HLRZ 1. 0. 1.)
(JSP T %CONS)
(JSP T %NCONS)
(HRRM 1. @ -1. P)
(HRRZ 2. @ 0. P)
(MOVEM 1. -1. P)
(MOVEM 2. 0. P)
(JRST 0. G0005)
G0036
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. -1. P)
(SUB P (% 0. 0. 2. 2.))
(PUSH P 1.)
(SKIPN 0. -5. P)
(JRST 0. G0045)
(HRRZ 1. @ -6. P)
(HLRZ 1. 0. 1.)
(CALL 1. 'LT-TYPE)
(MOVEI 2. 0. 1.)
(JRST 0. G0044)
G0045
(MOVEI 2. 'NEGPROPO)
G0044
(MOVEI 3. 'LT-TYPE)
(MOVE 1. 0. P)
(CALL 3. 'A-PUTPROP)
(MOVEI 3. 'F-DESCRIPTS)
(MOVEI 2. 0. 1.)
(MOVE 1. -3. P)
(CALL 3. 'PUTPROP)
(MOVE 1. -6. P)
(CALL 1. 'LTI-CREATE-WFF-NEGATION)
(MOVEI 3. 'FORMULA)
(MOVEI 2. 0. 1.)
(EXCH 1. -3. P)
(CALL 3. 'PUTPROP)
(SKIPN 0. -1. P)
(JRST 0. G0052)
(MOVEI 1. 'INDETERMINATE)
(CAMN 1. -1. P)
(JRST 0. G0052)
(MOVE 2. (SPECIAL *BL-NEG-INDEX*))
(MOVE 1. -1. P)
(CALL 2. 'ASSQ)
(HRRZ 1. 0. 1.)
(HRLM 1. @ -2. P)
G0052
(MOVE 1. -4. P)
(SUB P (% 0. 0. 8. 8.))
(POPJ P)
()
(LAP CSR:CREATE-FUNDAMENTAL-CONTEXTS SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:CREATE-FUNDAMENTAL-CONTEXTS (() . 0.))
(MOVE 5. (SPECIAL -CONTEXT:GLOBAL-))
(MOVEM 5. (SPECIAL -ALLWORLDS-))
(MOVEI 1. 0. 5.)
(CALL 1. 'CONTEXT:SPROUT-CONTEXT)
(MOVEM 1. (SPECIAL -NATURE-))
(CALL 1. 'CONTEXT:SPROUT-CONTEXT)
(MOVEM 1. (SPECIAL -REALWORLD-))
(MOVEM 1. (SPECIAL -CONTEXT-))
(MOVEI 1. '|The Fundamental Contexts Now Exist.|)
(POPJ P)
()
(LAP A-PUTPROP SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS A-PUTPROP (() . 3.))
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(JUMPN 1. G0003)
(EXCH 1. 3.)
(JSP T %C2NS)
(JSP T %NCONS)
(JRST 0. G0002)
G0003
(EXCH 2. 1.)
(EXCH 1. 3.)
(CALL 2. 'ASSQ)
(PUSH P 1.)
(JUMPE 1. G0009)
(MOVE 1. -2. P)
(JSP T PDLNMK)
(HRRM 1. @ 0. P)
(MOVE 1. -3. P)
(JSP T PDLNMK)
(JRST 0. G0008)
G0009
(HRRZ 2. @ -3. P)
(HLRZ 1. @ -3. P)
(JSP T %CONS)
(HRRM 1. @ -3. P)
(MOVE 2. -2. P)
(MOVE 1. -1. P)
(JSP T %C2NS)
(HRLM 1. @ -3. P)
(MOVE 1. -3. P)
(JSP T PDLNMK)
G0008
(SUB P (% 0. 0. 1. 1.))
G0002
(SUB P (% 0. 0. 3. 3.))
(POPJ P)
()
(LAP CSR:INVESTIGATE-FROM-MEMORY LSUBR)
(EVAL (SETQ IBASE 10.))
(JSP D *LCALL)
(COMMENT ARGLIST = (QUERY REASONING-SPECS &OPTIONAL ADVICE))
(PUSH P 1.)
(MOVE 5. ARGLOC)
(HRRZ 1. 1. 5.)
(PUSH P 1.)
(HRRZ 1. 2. 5.)
(PUSH P 1.)
(MOVE 7. @ -2. P)
(CAIG 7. 2.)
(JRST 0. G0006)
(HRRZ 1. 3. 5.)
(JRST 0. G0005)
G0006
(MOVEI 1. '() )
G0005
(PUSH P 1.)
(MOVE 1. -2. P)
(CALL 1. 'CSR:CREATE-NORMAL-QUERY)
(PUSH P 1.)
(CALL 1. 'CSR:MEMORY-LOOKUP)
(JSP T (NPUSH -7.))
(PUSH P 1.)
(JUMPE 1. G0011)
(HLRZ 1. 1. 1.)
(MOVE 2. -10. P)
(MOVEM 1. -7. P)
(CALL 2. 'CSR:HOW-CONCLUSIVE?)
(MOVEM 1. -1. P)
(CAIE 1. 'SUFFICIENT)
(JRST 0. G0015)
(MOVEI 5. 'INITIAL-MEM-LOOKUP-SUCCESS)
(MOVEM 5. -4. P)
(JRST 0. G0002)
G0015
(MOVE 1. -11. P)
(CALL 1. 'CSR:INITIALIZE-R-GRAPH)
(MOVEI 2. 0. 1.)
(MOVEM 1. -6. P)
(MOVE 1. 0. P)
(CALL 2. 'CSR:ENTER-MEMORY-CONSID)
G0011
(SKIPE 0. -6. P)
(JRST 0. G0018)
(MOVE 1. -11. P)
(CALL 1. 'CSR:INITIALIZE-R-GRAPH)
(MOVEM 1. -6. P)
G0018
(HRRZ 1. @ -6. P)
(MOVEI 5. '0.)
(MOVEM 5. (SPECIAL *:ARN))
(MOVE 3. -9. P)
(MOVE 2. -10. P)
(MOVEM 1. -5. P)
(MOVE 1. -6. P)
(CALL 3. 'CSR:FIND-CONSIDERATIONS)
(PUSH P 1.)
(MOVE 7. @ (SPECIAL *:ARN))
(CAIL 7. 2.)
(JRST 0. G0022)
(MOVEI 1. '2.)
(CALL 1. 'SI:CHECK-MULTIPLICITIES)
G0022
(MOVEI 5. '0.)
(MOVEM 5. (SPECIAL *:ARN))
(MOVE 4. (SPECIAL *:AR2))
(MOVE 3. (SPECIAL *:AR3))
(MOVE 1. -7. P)
(MOVEM 3. -3. P)
(MOVEM 4. -4. P)
(CALL 1. 'CSR:COMPOSE-CONSIDERATIONS)
(MOVE 2. -12. P)
(MOVE 1. -9. P)
(CALL 2. 'CSR:NORMALIZE-EPISTATUS)
(MOVE 1. -9. P)
(CALL 1. 'CSR:NORMALIZE-BELIEF-TYPE)
(MOVE 1. -9. P)
(HLRZ 1. 1. 1.)
(MOVEI 5. '((MEMORY-INVESTIGATION-CONSIDS |<summarized-consids>|)))
(HRRM 5. 1. 1.)
(MOVE 1. -12. P)
(HLRZ 1. 1. 1.)
(MOVEI 4. '((MEMORY-INVESTIGATION-CONSIDS |<summarized-consids>|)))
(HRRM 4. 1. 1.)
(MOVE 1. -9. P)
(CALL 1. 'CSR:RECORD-BELIEF)
(MOVEM 1. -1. P)
(HLRZ 1. 1. 1.)
(MOVE 2. -11. P)
(MOVEM 1. -8. P)
(CALL 2. 'CSR:HOW-CONCLUSIVE?)
(MOVEM 1. -2. P)
(POP P -5. P)
G0002
(MOVE 5. -5. P)
(MOVEM 5. (SPECIAL *:AR7))
(MOVE 4. -2. P)
(MOVEM 4. (SPECIAL *:AR6))
(MOVE 3. -3. P)
(MOVEM 3. (SPECIAL *:AR5))
(MOVE 5. -4. P)
(MOVEM 5. (SPECIAL *:AR4))
(MOVE 5. 0. P)
(MOVEM 5. (SPECIAL *:AR3))
(MOVE 1. -11. P)
(JSP T PDLNMK)
(MOVEM 1. (SPECIAL *:AR2))
(MOVEI 5. '6.)
(MOVEM 5. (SPECIAL *:ARN))
(MOVE 1. -1. P)
G0029
(SUB P (% 0. 0. 13. 13.))
(POPJ P)
()
(ARGS 'CSR:INVESTIGATE-FROM-MEMORY '(2 . 3))
(LAP CSR:CREATE-NORMAL-QUERY SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:CREATE-NORMAL-QUERY (() . 1.))
(COMMENT ARGLIST = (QUERY &AUX (QRY-WFF (QUERY-FORMULA QUERY)) NEGFLAG))
(PUSH P 1.)
(HRRZ 1. 1. 1.)
(MOVEI 2. 'FORMULA)
(CALL 2. 'GET)
(PUSH P (% 0. 0. '() ))
(PUSH P 1.)
(CALL 1. 'LT-TYPE)
(CAIE 1. 'NEGPROPO)
(JRST 0. G0004)
(MOVEI 5. 'T)
(MOVE 1. -2. P)
(MOVEM 5. -1. P)
(CALL 1. 'CSR:CREATE-B∨Q-NEGATION)
(JRST 0. G0003)
G0004
(HLRZ 1. @ -2. P)
(PUSH P 1.)
(MOVEI 1. '*P-UNIT*)
(JSP T %NCONS)
(PUSH P 1.)
(MOVE 1. -4. P)
(HRRZ 1. 1. 1.)
(SKIPN 0. 1.)
(SKIPA 1. NILPROPS)
(HRRZ 1. 0. 1.)
(MOVEI 2. '() )
(CALL 2. '*APPEND)
(SKIPN 2. 0. P)
(MOVEI 2. NILPROPS)
(HRRM 1. 0. 2.)
(POP P 2.)
(MOVE 1. -3. P)
(HLRZ 1. 1. 1.)
(MOVE 5. -3. P)
(HLRZ 5. 1. 5.)
(HRRZ 5. 1. 5.)
(MOVE 4. -3. P)
(HLRZ 4. 1. 4.)
(MOVEI 3. 0. 4.)
(HLRZ 3. 1. 3.)
(MOVE 4. -3. P)
(HLRZ 4. 1. 4.)
(HRRZ 4. 0. 4.)
(EXCH 2. 5.)
(HLRZ 1. 0. 1.)
(PUSH P 5.)
(JSP T %HUNK4)
(HRRZ 4. @ -4. P)
(MOVEI 3. 0. 1.)
(POP P 2.)
(POP P 1.)
(JSP T %HUNK4)
G0003
(SUB P (% 0. 0. 3. 3.))
(POPJ P)
()
(LAP CSR:NORMALIZE-EPISTATUS SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:NORMALIZE-EPISTATUS (() . 2.))
(PUSH P 1.)
(PUSH P 2.)
(HRRZ 1. 1. 1.)
(MOVEI 2. 'FORMULA)
(CALL 2. 'GET)
(MOVE 5. 0. P)
(HRRZ 5. 1. 5.)
(MOVEI 2. 'FORMULA)
(EXCH 1. 5.)
(PUSH P 5.)
(CALL 2. 'GET)
(PUSH P 1.)
(MOVE 1. -2. P)
(HLRZ 1. 1. 1.)
(HLRZ 2. 0. 1.)
(CAIN 2. 'INDETERMINATE)
(JRST 0. G0009)
(MOVE 2. 0. P)
(MOVE 1. -1. P)
(CALL 2. 'EQUAL)
(JUMPE 1. G0008)
G0009
(MOVE 1. -2. P)
(HLRZ 1. 1. 1.)
(HLRZ 1. 0. 1.)
(PUSH P 1.)
(MOVE 1. -4. P)
(HLRZ 1. 1. 1.)
(MOVE 5. 0. P)
(HRLM 5. 0. 1.)
(SUB P (% 0. 0. 1. 1.))
(MOVEI 1. 0. 5.)
(JRST 0. G0007)
G0008
(MOVE 1. 0. P)
(CALL 1. 'LTI-CREATE-WFF-NEGATION)
(MOVE 2. -1. P)
(CALL 2. 'EQUAL)
(JUMPE 1. G0017)
(MOVE 1. -2. P)
(HLRZ 1. 1. 1.)
(MOVE 2. (SPECIAL *BL-NEG-INDEX*))
(HLRZ 1. 0. 1.)
(CALL 2. 'ASSQ)
(HRRZ 1. 0. 1.)
(PUSH P 1.)
(MOVE 1. -4. P)
(HLRZ 1. 1. 1.)
(MOVE 5. 0. P)
(HRLM 5. 0. 1.)
(SUB P (% 0. 0. 1. 1.))
(MOVEI 1. 0. 5.)
(JRST 0. G0007)
G0017
(MOVEI 2. '|CSR:NORMALIZE-EPISTATUS - wff mismatch|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0007
(SUB P (% 0. 0. 4. 4.))
(POPJ P)
()
(LAP CSR:MEMORY-LOOKUP SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:MEMORY-LOOKUP (() . 1.))
(HRRZ 2. 0. 1.)
(JCALL 2. 'CONTEXT:LOOKUP)
()
(LAP CSR:RECORD-BELIEF SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:RECORD-BELIEF (() . 1.))
(HRRZ 2. 0. 1.)
(PUSH P 1.)
(CALL 2. 'CONTEXT:ADD)
(POP P 1.)
(JRST 0. PDLNKJ)
()
(LAP CSR:HOW-CONCLUSIVE? SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:HOW-CONCLUSIVE? (() . 2.))
(PUSH P 1.)
(PUSH P 2.)
(HLRZ 1. 0. 1.)
(PUSH P 1.)
(MOVEI 1. 'CONCLUSIVENESS-LEVEL)
(CALL 2. 'ASSQ)
(HRRZ 1. 0. 1.)
(PUSH P 1.)
(MOVE 2. (SPECIAL *BL-NEG-INDEX*))
(CALL 2. 'ASSQ)
(HRRZ 1. 0. 1.)
(PUSH P 1.)
(MOVEI 1. 'INDETERMINATE)
(CAME 1. -2. P)
(JRST 0. G0011)
(MOVEI 1. 'INSUFFICIENT)
(JRST 0. G0010)
G0011
(MOVE 2. -1. P)
(MOVE 1. -2. P)
(CALL 2. '≥-BEL-LEVEL)
(JUMPN 1. G0013)
(MOVE 2. 0. P)
(MOVE 1. -2. P)
(CALL 2. '≤-BEL-LEVEL)
(JUMPE 1. G0012)
G0013
(SKIPA 1. (% 0. 0. 'SUFFICIENT))
G0012
(MOVEI 1. 'INSUFFICIENT)
G0010
(SUB P (% 0. 0. 5. 5.))
(POPJ P)
()
(LAP CSR:NORMALIZE-BELIEF-TYPE SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:NORMALIZE-BELIEF-TYPE (() . 1.))
(PUSH P 1.)
(HLRZ 1. 1. 1.)
(PUSH P 1.)
(HLRZ 1. 0. 1.)
(PUSH P 1.)
(CAIN 1. 'CERTAIN)
(JRST 0. G0005)
(CAIN 1. 'DOUBTLESS)
(JRST 0. G0005)
(CAIN 1. 'VERY-LIKELY)
(JRST 0. G0005)
(CAIN 1. 'CERTAINLY-FALSE)
(JRST 0. G0005)
(CAIN 1. 'MOST-UNLIKELY)
(JRST 0. G0005)
(CAIE 1. 'VERY-UNLIKELY)
(JRST 0. G0004)
G0005
(MOVEI 1. 'KNOWLEDGE)
(JRST 0. G0003)
G0004
(CAIN 1. 'FAIRLY-LIKELY)
(JRST 0. G0007)
(CAIN 1. 'SOMEWHAT-LIKELY)
(JRST 0. G0007)
(CAIN 1. 'LIKELY-AS-NOT)
(JRST 0. G0007)
(CAIN 1. 'SOMEWHAT-UNLIKELY)
(JRST 0. G0007)
(CAIE 1. 'FAIRLY-UNLIKELY)
(JRST 0. G0006)
G0007
(MOVEI 1. 'CONJECTURE)
(JRST 0. G0003)
G0006
(CAIE 1. 'INDETERMINATE)
(JRST 0. G0008)
(MOVEI 1. 'WITHHOLDING)
(JRST 0. G0003)
G0008
(MOVEI 2. '|CSR:NORMALIZE-BELIEF-TYPE - unrecognized BEL-LEVEL|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0003
(HRLM 1. @ -2. P)
(SUB P (% 0. 0. 3. 3.))
(POPJ P)
()
(LAP CSR:ENTER-MEMORY-CONSID SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:ENTER-MEMORY-CONSID (() . 2.))
(MOVEI 2. '|CSR:ENTER-MEMORY-CONSIDERATION - fn not yet written.|)
(MOVEI 1. 'T)
(JCALL 2. '*BREAK)
()
(LAP CSR:FIND-CONSIDERATIONS SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:FIND-CONSIDERATIONS (() . 3.))
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(JSP T SPECBIND)
(0. 0. (SPECIAL R-AGENDA))
(PUSH FXP (% 0.))
(MOVEI 1. 'MAX-EFFORT)
(CALL 2. 'ASSQ)
(HRRZ 2. 0. 1.)
(PUSH P (% 0. 0. '0.))
(HRRZ 3. @ -3. P)
(MOVEI 1. '() )
(PUSH P 2.)
(PUSH P 3.)
(JSP T %NCONS)
(PUSH P 1.)
(PUSH P (% 0. 0. '() ))
(PUSH P (% 0. 0. '() ))
G0003
(MOVE 1. -3. P)
(HRRZ 1. 1. 1.)
(MOVE 3. -6. P)
(MOVEI 2. 0. 1.)
(MOVEM 1. -1. P)
(MOVEI 1. 'R-AGENDA)
(CALL 3. 'CSR:FIND-REASONING-TASKS)
(MOVE 1. -3. P)
(MOVEI 5. '() )
(HRRM 5. 1. 1.)
G0004
(SKIPE 1. (SPECIAL R-AGENDA))
(JRST 0. G0015)
(MOVEI 5. 'EMPTY-AGENDA)
(MOVEM 5. 0. P)
(JRST 0. G0008)
G0015
(MOVE 7. @ -5. P)
(HLRZ 8. 0. 1.)
(HRRZ 8. 0. 8.)
(MOVE 8. 0. 8.)
(ADD 7. 8.)
(CAMG 7. @ -4. P)
(JRST 0. G0014)
(MOVEI 5. 'REACHED-EFFORT-LIMIT)
(MOVEM 5. 0. P)
(JRST 0. G0008)
G0014
(HRRZ 2. 0. 1.)
(MOVEM 2. (SPECIAL R-AGENDA))
(HLRZ 1. 0. 1.)
(PUSH P 1.)
(HRRZ 1. 2. 1.)
(MOVE 2. 0. P)
(HLRZ 2. 2. 2.)
(CALL 2. '*APPLY)
(MOVE 5. 0. P)
(PUSH P 1.)
(HRRM 1. 3. 5.)
(MOVE 2. -4. P)
(MOVE 1. -1. P)
(CALL 2. 'TCONC)
(SUB P (% 0. 0. 2. 2.))
(MOVE 7. @ -5. P)
(HLRZ 8. @ -2. P)
(HLRZ 8. 0. 8.)
(HRRZ 8. 0. 8.)
(MOVE 8. 0. 8.)
(ADD 7. 8.)
(MOVEM 7. 0. FXP)
(MOVEI 1. 0. FXP)
(MOVEM 1. -5. P)
(SKIPN 2. (SPECIAL R-AGENDA))
(JRST 0. G0003)
(JRST 0. G0004)
G0008
(HLRZ 1. @ -2. P)
(MOVEM 1. (SPECIAL *:AR3))
(MOVE 1. -5. P)
(JSP T PDLNMK)
(MOVEM 1. (SPECIAL *:AR2))
(MOVEI 5. '2.)
(MOVEM 5. (SPECIAL *:ARN))
(MOVE 1. 0. P)
G0029
(PUSHJ P UNBIND)
(SUB P (% 0. 0. 9. 9.))
(SUB FXP (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP CSR:FIND-REASONING-TASKS SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:FIND-REASONING-TASKS (() . 3.))
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(MOVEI 1. 0. 2.)
(JSP T PDLNMK)
(PUSH P 1.)
G0003
(SKIPN 0. 0. P)
(JRST 0. G0006)
(HLRZ 1. @ 0. P)
(CALL 1. 'CSR:FIND-RR-TASKS)
(MOVEI 2. 0. 1.)
(MOVE 1. -3. P)
(CALL 2. 'AT:INSERT-IN-AGENDA)
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0003)
G0006
(SUB P (% 0. 0. 1. 1.))
(MOVEI 1. 'T)
(SUB P (% 0. 0. 3. 3.))
(POPJ P)
()
(LAP AT:INSERT-IN-AGENDA SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS AT:INSERT-IN-AGENDA (() . 2.))
(PUSH P 1.)
(PUSH P 2.)
(MOVEI 1. 0. 2.)
(JSP T PDLNMK)
(PUSH P 1.)
(PUSH P 1.)
G0004
(SKIPN 0. 0. P)
(JRST 0. G0010)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(HLRZ 1. @ -4. P)
(HRRZ 1. 0. 1.)
(HRRZ 1. 0. 1.)
(PUSH P (% 0. 0. 'INIT))
(PUSH P 1.)
(PUSH P (% 0. 0. '() ))
G0006
(SKIPE 0. -1. P)
(JRST 0. G0013)
(MOVE 1. -2. P)
(CAIE 1. 'INIT)
(JRST 0. G0016)
(MOVE 1. -3. P)
(JSP T %NCONS)
(MOVE 4. -7. P)
(JSP T *SET)
(JRST 0. G0015)
G0016
(MOVE 1. -3. P)
(JSP T %NCONS)
(HRRM 1. @ -2. P)
G0015
(JRST 0. G0023)
G0013
(HLRZ 1. @ -1. P)
(MOVEM 1. 0. P)
(MOVEI 2. 0. 1.)
(MOVE 1. -3. P)
(CALL 2. 'CSR:MORE-URGENT:1)
(JUMPE 1. G0025)
(MOVE 1. -2. P)
(CAIE 1. 'INIT)
(JRST 0. G0028)
(HLRZ 2. @ -7. P)
(HRRZ 2. 0. 2.)
(HRRZ 2. 0. 2.)
(MOVE 1. -3. P)
(JSP T %CONS)
(MOVE 4. -7. P)
(JSP T *SET)
(MOVEI 1. 'T)
(JRST 0. G0023)
G0028
(HRRZ 2. 0. 1.)
(MOVE 1. -3. P)
(JSP T %CONS)
(HRRM 1. @ -2. P)
(MOVEI 1. 'T)
(JRST 0. G0023)
G0025
(MOVE 5. -1. P)
(HRRZ 2. @ -1. P)
(MOVEM 2. -1. P)
(MOVEM 5. -2. P)
(JRST 0. G0006)
G0023
(SUB P (% 0. 0. 4. 4.))
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0004)
G0010
(SUB P (% 0. 0. 1. 1.))
(POP P 1.)
(SUB P (% 0. 0. 2. 2.))
(POPJ P)
()
(LAP CSR:FIND-HR-TASKS SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:FIND-HR-TASKS (() . 2.))
(MOVEI 1. '() )
(POPJ P)
()
(LAP CSR:FIND-RR-TASKS SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:FIND-RR-TASKS (() . 1.))
(COMMENT ARGLIST = (TGT-NODE &AUX R-TASKS))
(PUSH P 1.)
(PUSH P (% 0. 0. '() ))
(HLRZ 1. 0. 1.)
(PUSH P 1.)
(MOVE 1. -2. P)
(HRRZ 1. 1. 1.)
(HRRZ 1. 1. 1.)
(PUSH P 1.)
(MOVE 1. -1. P)
(CAIE 1. 'TARGET)
(JRST 0. G0008)
(MOVEI 3. 'RULE-EXPERT)
(MOVEI 2. 'BACKWARD)
(MOVE 1. 0. P)
(CALL 3. 'CSR:FIND-R-EXPERTS)
(JRST 0. G0007)
G0008
(MOVEI 1. 'PUNT)
G0007
(PUSH P 1.)
(PUSH P 1.)
G0003
(SKIPN 0. 0. P)
(JRST 0. G0013)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(MOVEI T G0015)
(PUSH P T)
(PUSH P (% 0. 0. '3.))
(PUSH P (% 0. 0. 'PREMISE-SEARCH))
(PUSH P 1.)
(HRRZ 1. 2. 1.)
(PUSH P 1.)
(MOVE 1. -11. P)
(JSP T %PDLNC)
(PUSH P 1.)
(PUSH P (% 0. 0. 'UNTRIED))
(PUSH P (% 0. 0. '5.))
(MOVNI T 7.)
(JCALL 14. 'HUNK)
G0015
(MOVE 2. -5. P)
(JSP T %CONS)
(SUB P (% 0. 0. 1. 1.))
(HRRZ 2. @ 0. P)
(MOVEM 1. -4. P)
(MOVEM 2. 0. P)
(JRST 0. G0003)
G0013
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. -3. P)
(SUB P (% 0. 0. 5. 5.))
(POPJ P)
()
(LAP CSR:GET-R-EXPERT SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:GET-R-EXPERT (() . 2.))
(PUSH P 1.)
(PUSH P 2.)
(CALL 1. 'EXPLODE)
(MOVEI 2. '(- R - E X P E R T))
(CALL 2. '*NCONC)
(CALL 1. 'IMPLODE)
(PUSH P 1.)
(MOVE 1. -1. P)
(CAIE 1. 'RULE-EXPERT)
(JRST 0. G0005)
(MOVE 1. (SPECIAL *ALL-R-RULE-EXPERTS-LIST*))
(JRST 0. G0004)
G0005
(CAIE 1. 'HEURISTIC-EXPERT)
(JRST 0. G0006)
(MOVE 1. (SPECIAL *ALL-R-HEURISTIC-EXPERTS-LIST*))
(JRST 0. G0004)
G0006
(MOVEI 2. '|CSR:GET-R-EXPERT - unrecognized r-expert-type.|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0004
(MOVEI 2. 0. 1.)
(POP P 1.)
(SUB P (% 0. 0. 2. 2.))
(JCALL 2. 'ASSQ)
()
(LAP CSR:FIND-R-EXPERTS SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:FIND-R-EXPERTS (() . 3.))
(COMMENT ARGLIST = (P-UNIT DIRECTION TYPE &AUX R-EXPERTS))
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(PUSH P (% 0. 0. '() ))
(MOVEI 2. 'FORMULA)
(CALL 2. 'GET)
(PUSH P 1.)
(MOVE 1. -2. P)
(CAIE 1. 'RULE-EXPERT)
(JRST 0. G0006)
(MOVE 1. (SPECIAL *ALL-R-RULE-EXPERTS-LIST*))
(JRST 0. G0005)
G0006
(CAIE 1. 'HEURISTIC-EXPERT)
(JRST 0. G0007)
(MOVE 1. (SPECIAL *ALL-R-HEURISTIC-EXPERTS-LIST*))
(JRST 0. G0005)
G0007
(MOVEI 2. '|CSR:FIND-R-EXPERTS - unrecognized r-expert-type.|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0005
(PUSH P 1.)
(MOVE 1. -4. P)
(CAIE 1. 'FORWARD)
(JRST 0. G0012)
(JRST 0. G0011)
G0012
(CAIE 1. 'BACKWARD)
(JRST 0. G0013)
(PUSH P 0. P)
G0003
(SKIPN 0. 0. P)
(JRST 0. G0015)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(HRRZ 1. 3. 1.)
(PUSH P 1.)
(JUMPE 1. G0018)
(MOVE 1. -4. P)
(CALLF 1. @ 0. P)
(JUMPE 1. G0018)
(MOVE 2. -5. P)
(MOVE 1. -1. P)
(JSP T %CONS)
(MOVEM 1. -5. P)
G0018
(SUB P (% 0. 0. 2. 2.))
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0003)
G0015
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0011)
G0013
(MOVEI 2. '|CSR:FIND-R-EXPERTS - unrecognized direction.|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0011
(MOVE 1. -2. P)
(SUB P (% 0. 0. 6. 6.))
(POPJ P)
()
(LAP CSR:BEST-R-TASK SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:BEST-R-TASK (() . 1.))
(PUSH P 1.)
(HLRZ 1. 0. 1.)
(PUSH P 1.)
(HRRZ 1. @ -1. P)
(PUSH P 1.)
(PUSH P 1.)
G0004
(SKIPN 0. 0. P)
(JRST 0. G0008)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(MOVE 2. -3. P)
(CALL 2. 'CSR:MORE-URGENT:1)
(JUMPE 1. G0010)
(MOVE 5. 0. P)
(MOVEM 5. -3. P)
G0010
(SUB P (% 0. 0. 1. 1.))
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0004)
G0008
(SUB P (% 0. 0. 1. 1.))
(POP P 1.)
(SUB P (% 0. 0. 2. 2.))
(POPJ P)
()
(LAP CSR:MORE-URGENT:1 SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:MORE-URGENT:1 (() . 2.))
(HLRZ 7. 0. 1.)
(MOVE 7. 0. 7.)
(HLRZ 8. 0. 2.)
(MOVE 8. 0. 8.)
(CAMG 7. 8.)
(TDZA 1. 1.)
(MOVEI 1. 'T)
(POPJ P)
()
(LAP CSR:ORDER-AGENDA SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:ORDER-AGENDA (() . 1.))
(MOVEI 2. 'CSR:MORE-URGENT:1)
(JCALL 2. 'SORT)
()
(LAP CSR:DO-R-TASK1-AGENDA SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:DO-R-TASK1-AGENDA (() . 2.))
(JSP T SPECBIND)
(0. 1. (SPECIAL R-AGENDA))
(PUSH P 2.)
(HLRZ 1. 0. 1.)
(PUSH P 1.)
(HRRZ 1. 2. 1.)
(MOVE 2. 0. P)
(HLRZ 2. 2. 2.)
(CALL 2. '*APPLY)
(MOVE 2. (SPECIAL R-AGENDA))
(PUSH P 1.)
(MOVE 1. -1. P)
(CALL 2. '*DELQ)
(MOVEM 1. (SPECIAL R-AGENDA))
(MOVE 1. -1. P)
(MOVE 5. 0. P)
(HRRM 5. 3. 1.)
(MOVE 2. -2. P)
(MOVE 1. -1. P)
(JSP T %C2NS)
(SUB P (% 0. 0. 2. 2.))
(JSP T PDLNMK)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. UNBIND)
()
(LAP CSR:DO-BEST-R-TASK-AGENDA SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:DO-BEST-R-TASK-AGENDA (() . 2.))
(PUSH P 1.)
(PUSH P 2.)
(CALL 1. 'CSR:BEST-R-TASK)
(PUSH P 1.)
(HRRZ 1. 2. 1.)
(MOVE 2. 0. P)
(HLRZ 2. 2. 2.)
(CALL 2. '*APPLY)
(MOVE 2. -2. P)
(PUSH P 1.)
(MOVE 1. -1. P)
(CALL 2. '*DELQ)
(MOVE 1. -1. P)
(MOVE 5. 0. P)
(HRRM 5. 3. 1.)
(MOVE 2. -2. P)
(MOVE 1. -1. P)
(JSP T %C2NS)
(SUB P (% 0. 0. 4. 4.))
(JRST 0. PDLNKJ)
()
(LAP CSR:DO-ALL-R-TASKS-AGENDA SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:DO-ALL-R-TASKS-AGENDA (() . 2.))
(PUSH P 1.)
(PUSH P 2.)
(JSP T PDLNMK)
(PUSH P 1.)
(PUSH P 1.)
G0004
(SKIPN 0. 0. P)
(JRST 0. G0008)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(HRRZ 1. 2. 1.)
(MOVE 2. 0. P)
(HLRZ 2. 2. 2.)
(CALL 2. '*APPLY)
(MOVE 2. -4. P)
(PUSH P 1.)
(MOVE 1. -1. P)
(CALL 2. '*DELQ)
(MOVE 5. -1. P)
(MOVE 4. 0. P)
(HRRM 4. 3. 5.)
(MOVE 2. -4. P)
(MOVEM 1. -5. P)
(MOVE 1. -1. P)
(JSP T %C2NS)
(SUB P (% 0. 0. 2. 2.))
(HRRZ 2. @ 0. P)
(MOVEM 1. -2. P)
(MOVEM 2. 0. P)
(JRST 0. G0004)
G0008
(SUB P (% 0. 0. 1. 1.))
(POP P 1.)
(SUB P (% 0. 0. 2. 2.))
(POPJ P)
()
(LAP CSR:KNOWLEDGE-LOOKUP-ALL SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:KNOWLEDGE-LOOKUP-ALL (() . 4.))
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(PUSH P 4.)
(HLRZ 5. 2. 1.)
(HRRZ 1. @ -3. P)
(PUSH P 1.)
(PUSH P 5.)
(PUSH P (% 0. 0. '() ))
(MOVEI 1. 0. P)
(PUSH P 1.)
(PUSH P 5.)
G0005
(SKIPN 0. 0. P)
(JRST 0. G0009)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(HRRZ 1. 1. 1.)
(PUSH P 1.)
(HRRZ 1. 1. 1.)
(MOVEI 2. 'F-DESCRIPTS)
(CALL 2. 'GET)
(PUSH P 1.)
(MOVE 1. -1. P)
(HRRZ 1. 1. 1.)
(MOVEI 2. 'FORMULA)
(CALL 2. 'GET)
(PUSH P 1.)
(MOVE 1. -2. P)
(HLRZ 1. 1. 1.)
(PUSH P 1.)
(MOVE 1. -2. P)
(CALLF 1. @ -12. P)
(JUMPE 1. G0018)
(MOVE 1. -1. P)
(CALLF 1. @ -11. P)
(JUMPE 1. G0018)
(SKIPN 0. -10. P)
(JRST 0. G0021)
(MOVE 1. 0. P)
(CALLF 1. @ -10. P)
(JUMPE 1. G0018)
G0021
(MOVE 1. -3. P)
(JSP T %NCONS)
G0018
(SUB P (% 0. 0. 5. 5.))
(HRRM 1. @ -1. P)
(MOVE 1. -1. P)
(CALL 1. 'LAST)
(HRRZ 2. @ 0. P)
(MOVEM 1. -1. P)
(MOVEM 2. 0. P)
(JRST 0. G0005)
G0009
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. -1. P)
(SUB P (% 0. 0. 2. 2.))
(MOVE 4. -1. P)
(MOVE 3. -2. P)
(MOVE 2. -3. P)
(EXCH 1. -4. P)
(CALL 4. 'CONTEXT:PRED-LOOKUP-ALL)
(MOVEM 1. (SPECIAL *:AR2))
(MOVEI 5. '1.)
(MOVEM 5. (SPECIAL *:ARN))
(MOVE 1. -4. P)
(SUB P (% 0. 0. 6. 6.))
(POPJ P)
()
(LAP CSR:KNOWLEDGE-LOOKUP SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:KNOWLEDGE-LOOKUP (() . 4.))
(PUSH P 1.)
(PUSH P 2.)
(PUSH P 3.)
(PUSH P 4.)
(HLRZ 5. 2. 1.)
(HRRZ 1. @ -3. P)
(PUSH P 1.)
(PUSH P 5.)
(PUSH P 5.)
G0002
(SKIPN 0. 0. P)
(JRST 0. G0007)
(HLRZ 1. @ 0. P)
(HRRZ 1. 1. 1.)
(PUSH P 1.)
(HRRZ 1. 1. 1.)
(MOVEI 2. 'F-DESCRIPTS)
(CALL 2. 'GET)
(PUSH P 1.)
(MOVE 1. -1. P)
(HRRZ 1. 1. 1.)
(MOVEI 2. 'FORMULA)
(CALL 2. 'GET)
(PUSH P 1.)
(MOVE 1. -2. P)
(HLRZ 1. 1. 1.)
(PUSH P 1.)
(MOVE 1. -2. P)
(CALLF 1. @ -9. P)
(JUMPE 1. G0015)
(MOVE 1. -1. P)
(CALLF 1. @ -8. P)
(JUMPE 1. G0015)
(SKIPN 0. -7. P)
(JRST 0. G0019)
(MOVE 1. 0. P)
(CALLF 1. @ -7. P)
(JUMPE 1. G0015)
G0019
(MOVE 1. -3. P)
(SUB P (% 0. 0. 4. 4.))
(JRST 0. G0021)
G0015
(SUB P (% 0. 0. 4. 4.))
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0002)
G0007
(MOVEI 1. '() )
G0021
(SUB P (% 0. 0. 1. 1.))
(JUMPN 1. G0005)
(MOVE 4. -1. P)
(MOVE 3. -2. P)
(MOVE 2. -3. P)
(MOVE 1. -4. P)
(CALL 4. 'CONTEXT:PRED-LOOKUP)
G0005
(SUB P (% 0. 0. 6. 6.))
(POPJ P)
()
(LAP >-BEL-LEVEL SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS >-BEL-LEVEL (() . 2.))
(PUSH P 1.)
(PUSH P 2.)
(CAIN 1. 'INDETERMINATE)
(JRST 0. G0003)
(CAIE 2. 'INDETERMINATE)
(JRST 0. G0001)
G0003
(MOVEI 2. '|>-BEL-LEVEL - can't compare INDETERMINATE|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0001
(MOVE 2. (SPECIAL *ALL-BEL-LEVELS*))
(MOVE 1. -1. P)
(CALL 2. 'MEMQ)
(HRRZ 2. 0. 1.)
(POP P 1.)
(SUB P (% 0. 0. 1. 1.))
(JCALL 2. 'MEMQ)
()
(LAP ≥-BEL-LEVEL SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS ≥-BEL-LEVEL (() . 2.))
(PUSH P 1.)
(PUSH P 2.)
(CAIN 1. 'INDETERMINATE)
(JRST 0. G0003)
(CAIE 2. 'INDETERMINATE)
(JRST 0. G0001)
G0003
(MOVEI 2. '|≥-BEL-LEVEL - can't compare INDETERMINATE|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0001
(MOVE 2. (SPECIAL *ALL-BEL-LEVELS*))
(POP P 1.)
(CALL 2. 'MEMQ)
(HRRZ 2. 0. 1.)
(POP P 1.)
(CALL 2. 'MEMQ)
(SKIPE 0. 1.)
(TDZA 1. 1.)
(MOVEI 1. 'T)
(POPJ P)
()
(LAP <-BEL-LEVEL SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS <-BEL-LEVEL (() . 2.))
(PUSH P 1.)
(PUSH P 2.)
(CAIN 1. 'INDETERMINATE)
(JRST 0. G0003)
(CAIE 2. 'INDETERMINATE)
(JRST 0. G0001)
G0003
(MOVEI 2. '|<-BEL-LEVEL - can't compare INDETERMINATE|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0001
(MOVE 2. (SPECIAL *ALL-BEL-LEVELS*))
(POP P 1.)
(CALL 2. 'MEMQ)
(HRRZ 2. 0. 1.)
(POP P 1.)
(JCALL 2. 'MEMQ)
()
(LAP ≤-BEL-LEVEL SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS ≤-BEL-LEVEL (() . 2.))
(PUSH P 1.)
(PUSH P 2.)
(CAIN 1. 'INDETERMINATE)
(JRST 0. G0003)
(CAIE 2. 'INDETERMINATE)
(JRST 0. G0001)
G0003
(MOVEI 2. '|≤-BEL-LEVEL - can't compare INDETERMINATE|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0001
(MOVE 2. (SPECIAL *ALL-BEL-LEVELS*))
(MOVE 1. -1. P)
(CALL 2. 'MEMQ)
(HRRZ 2. 0. 1.)
(POP P 1.)
(CALL 2. 'MEMQ)
(SKIPE 0. 1.)
(TDZA 1. 1.)
(MOVEI 1. 'T)
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP CSR:COMPOSE-CONSIDERATIONS SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:COMPOSE-CONSIDERATIONS (() . 1.))
(PUSH P 1.)
(HLRZ 1. 1. 1.)
(PUSH P 1.)
(MOVE 1. -1. P)
(HLRZ 1. 2. 1.)
(HLRZ 1. 1. 1.)
(PUSH P 1.)
(MOVE 1. -2. P)
(HRRZ 1. 1. 1.)
(HLRZ 1. 1. 1.)
(PUSH P 1.)
(MOVE 1. -3. P)
(HLRZ 1. 2. 1.)
(HRRZ 1. 1. 1.)
(HLRZ 1. 1. 1.)
(PUSH P 1.)
(MOVE 1. -3. P)
(CALL 1. 'CSR:COMPUTE-CONSID-FORCES)
(MOVE 1. -2. P)
(CALL 1. 'CSR:COMPUTE-CONSID-FORCES)
(MOVE 1. -2. P)
(CALL 1. 'CSR:CREATE-NEGATION-CONSIDS)
(PUSH P 1.)
(PUSH P (% 0. 0. '() ))
(MOVEI 1. 0. P)
(PUSH P 1.)
(PUSH P -6. P)
G0006
(SKIPN 0. 0. P)
(JRST 0. G0029)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(CALL 1. 'HAS-NON-ZERO-FORCE)
(JUMPE 1. G0032)
(MOVE 1. 0. P)
(JSP T %NCONS)
G0032
(SUB P (% 0. 0. 1. 1.))
(HRRM 1. @ -1. P)
(MOVE 1. -1. P)
(CALL 1. 'LAST)
(HRRZ 2. @ 0. P)
(MOVEM 1. -1. P)
(MOVEM 2. 0. P)
(JRST 0. G0006)
G0029
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. -1. P)
(SUB P (% 0. 0. 2. 2.))
(PUSH P 1.)
(PUSH P (% 0. 0. '() ))
(MOVEI 1. 0. P)
(PUSH P 1.)
(PUSH P -3. P)
G0012
(SKIPN 0. 0. P)
(JRST 0. G0040)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(CALL 1. 'HAS-NON-ZERO-FORCE)
(JUMPE 1. G0043)
(MOVE 1. 0. P)
(JSP T %NCONS)
G0043
(SUB P (% 0. 0. 1. 1.))
(HRRM 1. @ -1. P)
(MOVE 1. -1. P)
(CALL 1. 'LAST)
(HRRZ 2. @ 0. P)
(MOVEM 1. -1. P)
(MOVEM 2. 0. P)
(JRST 0. G0012)
G0040
(SUB P (% 0. 0. 1. 1.))
(MOVE 2. -1. P)
(SUB P (% 0. 0. 2. 2.))
(POP P 1.)
(CALL 2. '*NCONC)
(PUSH P 1.)
(JUMPN 1. G0051)
(MOVEI 1. 'INDETERMINATE)
(HRLM 1. @ -3. P)
(MOVE 1. -3. P)
(MOVEI 5. '|Ignorance|)
(HRRM 5. 1. 1.)
(MOVE 1. -3. P)
(MOVEI 4. 'ZERO)
(HRLM 4. 1. 1.)
(MOVEI 1. '|Memory-inquiry - No considerations found|)
(HRRM 1. @ -3. P)
(JRST 0. G0015)
G0051
(NCALL 1. 'LENGTH)
(SOJN 7. G0053)
(HLRZ 1. @ 0. P)
(HRRZ 1. 3. 1.)
(PUSH P 1.)
(HLRZ 2. 0. 1.)
(CAIE 2. 'IF-ALONE)
(JRST 0. G0059)
(HRRZ 1. 0. 1.)
(HRLM 1. @ -4. P)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0015)
G0059
(MOVEI 2. '|CSR:COMPOSE-CONSIDERATIONS - unrecognized force|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
(SUB P (% 0. 0. 1. 1.))
G0053
(MOVE 1. 0. P)
(CALL 1. 'CSR:ONE-DOMINATING-DED-CONSID)
(PUSH P 1.)
(JUMPE 1. G0064)
(HRRZ 1. 3. 1.)
(PUSH P 1.)
(HLRZ 2. 0. 1.)
(CAIE 2. 'IF-ALONE)
(JRST 0. G0068)
(HRRZ 1. 0. 1.)
(HRLM 1. @ -5. P)
(SUB P (% 0. 0. 2. 2.))
(JRST 0. G0015)
G0068
(MOVEI 2. '|CSR:COMPOSE-CONSIDERATIONS - unrecognized force|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
(SUB P (% 0. 0. 1. 1.))
G0064
(SUB P (% 0. 0. 1. 1.))
(MOVEI 2. '|CSR:COMPOSE-CONSIDERATIONS - punt!|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0015
(MOVE 2. (SPECIAL *BL-NEG-INDEX*))
(HLRZ 1. @ -3. P)
(CALL 2. 'ASSQ)
(HRRZ 1. 0. 1.)
(HRLM 1. @ -2. P)
(MOVE 1. -2. P)
(MOVEI 5. '|See BL-GROUNDS of negation.|)
(HRRM 5. 1. 1.)
(MOVE 1. -3. P)
(HLRZ 1. 1. 1.)
(MOVE 4. -2. P)
(PUSH P 1.)
(HRLM 1. 1. 4.)
(SUB P (% 0. 0. 1. 1.))
(MOVEI 1. '|See BF-GROUNDS of negation.|)
(HRRM 1. @ -2. P)
(MOVE 1. -3. P)
G0076
(SUB P (% 0. 0. 7. 7.))
(POPJ P)
()
(LAP CSR:ONE-DOMINATING-DED-CONSID SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:ONE-DOMINATING-DED-CONSID (() . 1.))
(PUSH P 1.)
(PUSH P (% 0. 0. '() ))
(MOVEI 1. 0. P)
(PUSH P 1.)
(MOVE 1. -2. P)
(JSP T PDLNMK)
(PUSH P 1.)
G0007
(SKIPN 0. 0. P)
(JRST 0. G0010)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(PUSH P 1.)
(HLRZ 1. 2. 1.)
(CAIE 1. 'CERTAIN-AWPC)
(TDZA 1. 1.)
(MOVEI 1. 'T)
(SUB P (% 0. 0. 1. 1.))
(JUMPE 1. G0013)
(MOVE 1. 0. P)
(JSP T %NCONS)
G0013
(SUB P (% 0. 0. 1. 1.))
(HRRM 1. @ -1. P)
(MOVE 1. -1. P)
(CALL 1. 'LAST)
(HRRZ 2. @ 0. P)
(MOVEM 1. -1. P)
(MOVEM 2. 0. P)
(JRST 0. G0007)
G0010
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. -1. P)
(SUB P (% 0. 0. 2. 2.))
(PUSH P 1.)
(JUMPE 1. G0022)
(NCALL 1. 'LENGTH)
(SOJN 7. G0022)
(SKIPA 1. 0. P)
G0022
(MOVEI 1. '() )
(SUB P (% 0. 0. 2. 2.))
(POPJ P)
()
(LAP HAS-NON-ZERO-FORCE SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS HAS-NON-ZERO-FORCE (() . 1.))
(PUSH P 1.)
(HRRZ 1. 3. 1.)
(HLRZ 2. 0. 1.)
(CAIN 2. 'ZERO)
(TDZA 1. 1.)
(MOVEI 1. 'T)
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP CSR:COMPUTE-CONSID-FORCES SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:COMPUTE-CONSID-FORCES (() . 1.))
(COMMENT ARGLIST = (CONSID-LIST &AUX PREM-BEL-LEVELS))
(PUSH P 1.)
(PUSH P (% 0. 0. '() ))
(JSP T PDLNMK)
(PUSH P 1.)
(PUSH P 1.)
G0004
(SKIPN 0. 0. P)
(JRST 0. G0012)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(HRRZ 1. 3. 1.)
(JUMPN 1. G0014)
(MOVE 1. 0. P)
(HLRZ 1. 3. 1.)
(JUMPE 1. G0016)
(MOVE 1. 0. P)
(MOVEI 5. '(ZERO . UNFOUND-PREMISES))
(HRRM 5. 3. 1.)
(JRST 0. G0014)
G0016
(PUSH P (% 0. 0. '() ))
(MOVEI 1. 0. P)
(PUSH P 1.)
(MOVE 1. -2. P)
(HLRZ 1. 1. 1.)
(PUSH P 1.)
G0009
(SKIPN 0. 0. P)
(JRST 0. G0021)
(HLRZ 1. @ 0. P)
(CALL 1. 'CSR:COMPUTE-BEL-LEVEL)
(JSP T %NCONS)
(HRRM 1. @ -1. P)
(HRRZ 2. @ 0. P)
(MOVEM 1. -1. P)
(MOVEM 2. 0. P)
(JRST 0. G0009)
G0021
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. -1. P)
(SUB P (% 0. 0. 2. 2.))
(MOVEM 1. -3. P)
(MOVE 1. 0. P)
(HLRZ 1. 2. 1.)
(MOVE 2. -3. P)
(CALL 2. 'CSR:COMPUTE-CONSID-FORCE)
(MOVE 5. 0. P)
(PUSH P 1.)
(HRRM 1. 3. 5.)
(SUB P (% 0. 0. 1. 1.))
G0014
(SUB P (% 0. 0. 1. 1.))
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0004)
G0012
(SUB P (% 0. 0. 1. 1.))
(POP P 1.)
(SUB P (% 0. 0. 2. 2.))
(POPJ P)
()
(LAP CSR:COMPUTE-CONSID-FORCE SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:COMPUTE-CONSID-FORCE (() . 2.))
(PUSH P 1.)
(PUSH P 2.)
(MOVEI 1. 'C-C-F)
(MOVEI 2. G0001)
(JSP TT (ERSETUP -1.))
(MOVE 5. -13. P)
(JUMPE 5. G0002)
(HLRZ 4. 0. 5.)
(HRRZ 5. 0. 5.)
(CAIE 4. 'INDETERMINATE)
(JRST 0. (* -4.))
(MOVEI 2. 'C-C-F)
(MOVEI 1. '(INDETERMINATE . INDET-PREM-BEL-LEVELS))
(JRST 0. (ERUNDO -1.))
G0002
(MOVE 1. -14. P)
(CAIE 1. 'CERTAIN-AWPC)
(JRST 0. G0005)
(MOVE 1. -13. P)
(CALL 1. 'CSR:CERTAIN-AWPC)
(JRST 0. G0004)
G0005
(CAIE 1. 'CERTAINLY-FALSE-AWPC)
(JRST 0. G0007)
(MOVE 1. -13. P)
(CALL 1. 'CSR:CERTAINLY-FALSE-AWPC)
(JRST 0. G0004)
G0007
(CAIE 1. 'DOUBTLESS-AWPC)
(JRST 0. G0009)
(MOVE 1. -13. P)
(CALL 1. 'CSR:DOUBTLESS-AWPC)
(JRST 0. G0004)
G0009
(MOVEI 2. '|CSR:COMPUTE-CONSID-FORCE - punt!|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0004
(JRST 0. (ERUNDO -2.))
G0001
(SUB P (% 0. 0. 2. 2.))
(POPJ P)
()
(LAP CSR:CERTAIN-AWPC SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:CERTAIN-AWPC (() . 1.))
(PUSH P 1.)
(CALL 1. 'MIN-BEL-LEVEL)
(PUSH P 1.)
(MOVEI 2. 'LIKELY-AS-NOT)
(CALL 2. '>-BEL-LEVEL)
(JUMPE 1. G0003)
(SKIPA 1. 0. P)
G0003
(MOVEI 1. 'ZERO)
(MOVEI 2. 'IF-ALONE)
(JSP T %XCONS)
(SUB P (% 0. 0. 2. 2.))
(POPJ P)
()
(LAP CSR:DOUBTLESS-AWPC SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:DOUBTLESS-AWPC (() . 1.))
(PUSH P 1.)
(CALL 1. 'MIN-BEL-LEVEL)
(PUSH P 1.)
(MOVEI 2. 'SOMEWHAT-LIKELY)
(CALL 2. '>-BEL-LEVEL)
(JUMPE 1. G0003)
(MOVE 2. (SPECIAL *ALL-BEL-LEVELS*))
(MOVE 1. 0. P)
(CALL 2. 'MEMQ)
(HRRZ 1. 0. 1.)
(HLRZ 1. 0. 1.)
(JRST 0. G0002)
G0003
(MOVEI 1. 'ZERO)
G0002
(MOVEI 2. 'IF-ALONE)
(JSP T %XCONS)
(SUB P (% 0. 0. 2. 2.))
(POPJ P)
()
(LAP CSR:CERTAINLY-FALSE-AWPC SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:CERTAINLY-FALSE-AWPC (() . 1.))
(PUSH P 1.)
(CALL 1. 'CSR:CERTAIN-AWPC)
(MOVE 2. (SPECIAL *BL-NEG-INDEX*))
(HRRZ 1. 0. 1.)
(CALL 2. 'ASSQ)
(HRRZ 1. 0. 1.)
(MOVEI 2. 'IF-ALONE)
(JSP T %XCONS)
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP CSR:CREATE-NEGATION-CONSIDS SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:CREATE-NEGATION-CONSIDS (() . 1.))
(PUSH P 1.)
(PUSH P (% 0. 0. '() ))
(MOVEI 1. 0. P)
(PUSH P 1.)
(MOVE 1. -2. P)
(JSP T PDLNMK)
(PUSH P 1.)
G0005
(SKIPN 0. 0. P)
(JRST 0. G0009)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(CALL 1. 'CSR:COPY-CONSID)
(MOVEI 5. 'NEGATION-CONSID)
(HRLM 5. 0. 1.)
(PUSH P 1.)
(MOVE 1. -1. P)
(HRRZ 1. 3. 1.)
(PUSH P 1.)
(HLRZ 2. 0. 1.)
(CAIE 2. 'IF-ALONE)
(JRST 0. G0014)
(MOVE 2. (SPECIAL *BL-NEG-INDEX*))
(HRRZ 1. 0. 1.)
(CALL 2. 'ASSQ)
(HRRZ 2. 0. 1.)
(MOVEI 1. 'IF-ALONE)
(JSP T %CONS)
(JRST 0. G0013)
G0014
(HRRZ 2. 0. 1.)
(HLRZ 1. 0. 1.)
(JSP T %CONS)
G0013
(SUB P (% 0. 0. 1. 1.))
(MOVE 5. 0. P)
(PUSH P 1.)
(HRRM 1. 3. 5.)
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. -1. P)
(HRRZ 1. 2. 1.)
(HLRZ 1. 2. 1.)
(MOVE 5. 0. P)
(PUSH P 1.)
(HRRM 1. 2. 5.)
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. 0. P)
(CALL 1. 'CSR:INSTALL-CONSID-LINK)
(POP P 1.)
(SUB P (% 0. 0. 1. 1.))
(JSP T %NCONS)
(HRRM 1. @ -1. P)
(HRRZ 2. @ 0. P)
(MOVEM 1. -1. P)
(MOVEM 2. 0. P)
(JRST 0. G0005)
G0009
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. -1. P)
(SUB P (% 0. 0. 3. 3.))
(POPJ P)
()
(LAP MIN-BEL-LEVEL SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS MIN-BEL-LEVEL (() . 1.))
(PUSH P 1.)
(HRRZ 2. 0. 1.)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(PUSH P 2.)
G0002
(SKIPE 0. 0. P)
(JRST 0. G0005)
(MOVE 1. -1. P)
(JRST 0. G0007)
G0005
(MOVE 2. -1. P)
(HLRZ 1. @ 0. P)
(CALL 2. '<-BEL-LEVEL)
(JUMPE 1. G0008)
(HLRZ 2. @ 0. P)
(MOVEM 2. -1. P)
G0008
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0002)
G0007
(SUB P (% 0. 0. 3. 3.))
(POPJ P)
()
(LAP CSR:COMPUTE-BEL-LEVEL SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:COMPUTE-BEL-LEVEL (() . 1.))
(COMMENT ARGLIST = (RP-NODE &AUX (BEL∨QRY (RP-NODE-CONTENT RP-NODE)) (EPISTATUS (BELIEF-EPISTATUS BEL∨QRY)) (BEL-LEVEL (EPIST-BEL-LEVEL EPISTATUS))))
(PUSH P 1.)
(HRRZ 1. 1. 1.)
(PUSH P 1.)
(HLRZ 1. 1. 1.)
(HLRZ 2. 0. 1.)
(PUSH P 2.)
(HRRZ 1. @ -2. P)
(HRRZ 1. 2. 1.)
(JUMPE 1. G0005)
(HLRZ 5. 0. 1.)
(HRRZ 1. 0. 1.)
(CAME 5. -2. P)
(JRST 0. (* -4.))
(CAIE 2. 'INDETERMINATE)
(JRST 0. G0008)
(MOVEI 2. '|CSR:COMPUTE-BEL-LEVEL - k-basis vs. b-level error|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0008
(MOVE 1. 0. P)
(JRST 0. G0004)
G0005
(MOVE 1. -2. P)
(CALL 1. 'CSR:COMPOSE-CONSIDERATIONS)
(HLRZ 1. 0. 1.)
G0004
(SUB P (% 0. 0. 3. 3.))
(POPJ P)
()
(PUTPROP 'HAS-BILL 'ATTRIBUTE 'CATEGORY)
(PUTPROP 'HAS-LIPS 'ATTRIBUTE 'CATEGORY)
(SETQ *ALL-R-RULE-EXPERTS-LIST* (LIST (HUNK 'QUANTIFIED-MODUS-PONENS () () (FUNCTION QUANT-MP-B-METHOD) () (FUNCTION QUANT-MP-BM-PREDICATE1) 'RULE-EXPERT) (HUNK 'STATISTICAL-SYLLOGISM () () (FUNCTION STATIST-B-METHOD) () (FUNCTION STATIST-BM-PREDICATE1) 'RULE-EXPERT) (HUNK 'CAUSAL-INFLUENCE () () () () () 'RULE-EXPERT) (HUNK 'CAUSAL-ACTION () () () () () 'RULE-EXPERT)))
(LAP QUANT-MP-BM-PREDICATE1 SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS QUANT-MP-BM-PREDICATE1 (() . 1.))
(PUSH P 1.)
(CALL 1. 'LT-TYPE)
(CAIE 1. 'ATOMICPROPO)
(JRST 0. G0003)
(MOVE 1. 0. P)
(NCALL 1. 'LENGTH)
(CAIE 7. 2.)
(TDZA 1. 1.)
(MOVEI 1. 'T)
(JRST 0. G0002)
G0003
(MOVEI 1. '() )
G0002
(JUMPN 1. G0001)
(MOVE 1. 0. P)
(CALL 1. 'LT-TYPE)
(CAIE 1. 'NEGPROPO)
(JRST 0. G0009)
(HRRZ 1. @ 0. P)
(HLRZ 1. 0. 1.)
(CALL 1. 'QUANT-MP-BM-PREDICATE1)
(JRST 0. G0008)
G0009
(MOVEI 1. '() )
G0008
G0001
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP |[MRS,LSP]CSREAS.LSP←1.| SUBR)
(EVAL (SETQ IBASE 10.))
(PUSH P 1.)
(MOVEI 2. 0. 1.)
(MOVEI 1. 'LT-TYPE)
(CALL 2. 'ASSQ)
(HRRZ 2. 0. 1.)
(CAIE 2. 'QUANTIFIERFORM)
(JRST 0. G0006)
(MOVE 2. 0. P)
(MOVEI 1. 'LT-DETERMINER)
(CALL 2. 'ASSQ)
(HRRZ 2. 0. 1.)
(CAIE 2. '∀)
(JRST 0. G0006)
(PUSH P (SPECIAL CONCL-LT-TYPE))
(MOVE 2. -1. P)
(MOVEI 1. 'LT-TYPE*Q-KERNEL)
(CALL 2. 'ASSQ)
(HRRZ 2. 0. 1.)
(CAME 2. 0. P)
(TDZA 1. 1.)
(MOVEI 1. 'T)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0005)
G0006
(MOVEI 1. '() )
G0005
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP |[MRS,LSP]CSREAS.LSP←2.| SUBR)
(EVAL (SETQ IBASE 10.))
(MOVE 2. (SPECIAL Q-KERNEL-PATT))
(HRRZ 1. 0. 1.)
(HLRZ 1. 0. 1.)
(JCALL 2. '%UMATCH)
()
(LAP |[MRS,LSP]CSREAS.LSP←3.| SUBR)
(EVAL (SETQ IBASE 10.))
(MOVEI 2. 'VERY-LIKELY)
(HLRZ 1. 0. 1.)
(JCALL 2. '≥-BEL-LEVEL)
()
(LAP |[MRS,LSP]CSREAS.LSP←4.| SUBR)
(EVAL (SETQ IBASE 10.))
(PUSH P (SPECIAL S-PREM-LT-TYPE))
(MOVEI 2. 0. 1.)
(MOVEI 1. 'LT-TYPE)
(CALL 2. 'ASSQ)
(HRRZ 2. 0. 1.)
(CAME 2. 0. P)
(TDZA 1. 1.)
(MOVEI 1. 'T)
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP |[MRS,LSP]CSREAS.LSP←5.| SUBR)
(EVAL (SETQ IBASE 10.))
(MOVE 2. (SPECIAL S-PREM-SENT))
(JCALL 2. 'EQUAL)
()
(LAP |[MRS,LSP]CSREAS.LSP←6.| SUBR)
(EVAL (SETQ IBASE 10.))
(MOVEI 2. 'VERY-LIKELY)
(HLRZ 1. 0. 1.)
(JCALL 2. '≥-BEL-LEVEL)
()
(LAP QUANT-MP-B-METHOD SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS QUANT-MP-B-METHOD (() . 1.))
(PUSH P 1.)
(HRRZ 1. 1. 1.)
(HRRZ 1. 1. 1.)
(MOVEI 2. 'FORMULA)
(CALL 2. 'GET)
(PUSH P 1.)
(HRRZ 1. @ -1. P)
(PUSH P 1.)
(MOVE 1. -1. P)
(CALL 1. 'LT-TYPE)
(JSP T SPECBIND)
(0. 1. (SPECIAL CONCL-LT-TYPE))
(CAIE 1. 'ATOMICPROPO)
(JRST 0. G0041)
(HRRZ 1. @ -1. P)
(HLRZ 1. 0. 1.)
(JRST 0. G0040)
G0041
(CAIE 1. 'NEGPROPO)
(JRST 0. G0043)
(HRRZ 1. @ -1. P)
(JSP T (CARCDR 3.) 0. CADAR)
(JRST 0. G0040)
G0043
(MOVEI 1. '() )
G0040
(PUSH P 1.)
(MOVE 1. (SPECIAL CONCL-LT-TYPE))
(CAIE 1. 'ATOMICPROPO)
(JRST 0. G0048)
(MOVE 1. -2. P)
(NCALL 1. 'LENGTH)
(CAIE 7. 2.)
(JRST 0. G0049)
(MOVEI 1. '?X)
(JSP T %NCONS)
(HLRZ 2. @ -2. P)
(JSP T %XCONS)
(JRST 0. G0047)
G0049
(MOVEI 1. '() )
(JRST 0. G0047)
G0048
(CAIE 1. 'NEGPROPO)
(JRST 0. G0055)
(HRRZ 1. @ -2. P)
(HLRZ 1. 0. 1.)
(CALL 1. 'LT-TYPE)
(CAIE 1. 'ATOMICPROPO)
(JRST 0. G0056)
(HRRZ 1. @ -2. P)
(HLRZ 1. 0. 1.)
(NCALL 1. 'LENGTH)
(CAIE 7. 2.)
(JRST 0. G0056)
(PUSH P -2. P)
(HRRZ 1. @ 0. P)
(HLRZ 1. 0. 1.)
(HLRZ 1. 0. 1.)
(MOVEI 2. '(?X))
(JSP T %CONS)
(JSP T %NCONS)
(MOVEI 2. '¬)
(JSP T %XCONS)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0047)
G0056
(MOVEI 1. '() )
(JRST 0. G0047)
G0055
(MOVEI 1. '() )
G0047
(JSP T SPECBIND)
(0. 1. (SPECIAL Q-KERNEL-PATT))
(PUSH P (% 0. 0. '() ))
(MOVEI 5. '0.)
(MOVEM 5. (SPECIAL *:ARN))
(MOVEI 4. '|[MRS,LSP]CSREAS.LSP←3.|)
(MOVEI 3. '|[MRS,LSP]CSREAS.LSP←2.|)
(MOVEI 2. '|[MRS,LSP]CSREAS.LSP←1.|)
(MOVE 1. -2. P)
(CALL 4. 'CSR:KNOWLEDGE-LOOKUP-ALL)
(PUSH P 1.)
(MOVE 7. @ (SPECIAL *:ARN))
(CAIL 7. 1.)
(JRST 0. G0069)
(MOVEI 1. '1.)
(CALL 1. 'SI:CHECK-MULTIPLICITIES)
G0069
(MOVEI 5. '0.)
(MOVEM 5. (SPECIAL *:ARN))
(PUSH P (SPECIAL *:AR2))
(POP P 2.)
(POP P 1.)
(CALL 2. '*NCONC)
(PUSH P 1.)
G0022
(SKIPN 0. 0. P)
(JRST 0. G0072)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(HRRZ 1. 1. 1.)
(MOVEI 2. 'FORMULA)
(CALL 2. 'GET)
(PUSH P 1.)
(HLRZ 2. 0. 1.)
(MOVEI 1. '2.)
(CALL 2. 'NTH)
(PUSH P 1.)
(MOVE 1. -5. P)
(JSP T %NCONS)
(POP P 2.)
(JSP T %XCONS)
(JSP T SPECBIND)
(0. 1. (SPECIAL S-PREM-SENT))
(CALL 1. 'LT-TYPE)
(JSP T SPECBIND)
(0. 1. (SPECIAL S-PREM-LT-TYPE))
(MOVEI 4. '|[MRS,LSP]CSREAS.LSP←6.|)
(MOVEI 3. '|[MRS,LSP]CSREAS.LSP←5.|)
(MOVEI 2. '|[MRS,LSP]CSREAS.LSP←4.|)
(MOVE 1. -5. P)
(CALL 4. 'CSR:KNOWLEDGE-LOOKUP)
(PUSH P 1.)
(JUMPE 1. G0083)
(MOVEI 4. 'BASIS)
(MOVEI 3. 'KNOWLEDGE)
(MOVE 2. -6. P)
(MOVE 1. -2. P)
(CALL 4. 'CSR:UPDATE-R-GRAPH)
(PUSH P 1.)
(MOVEI 4. 'BASIS)
(MOVEI 3. 'KNOWLEDGE)
(MOVE 2. -7. P)
(MOVE 1. -1. P)
(CALL 4. 'CSR:UPDATE-R-GRAPH)
(PUSH P 1.)
(MOVEI T G0086)
(PUSH P T)
(PUSH P (% 0. 0. 'ORDINARY-CONSID))
(PUSH P (% 0. 0. 'QUANTIFIED-MODUS-PONENS))
(JSP T %NCONS)
(MOVE 2. -4. P)
(JSP T %XCONS)
(PUSH P 1.)
(PUSH P -14. P)
(PUSH P (% 0. 0. 'CERTAIN-AWPC))
(PUSH P (% 0. 0. '() ))
(PUSH P (% 0. 0. '() ))
(PUSH P (% 0. 0. '() ))
(PUSH P -10. P)
(PUSH P -10. P)
(PUSH P -19. P)
(MOVNI T 11.)
(JCALL 14. 'HUNK)
G0086
(PUSH P 1.)
(CALL 1. 'CSR:INSTALL-CONSID-LINK)
(MOVE 2. -7. P)
(POP P 1.)
(JSP T %CONS)
(SUB P (% 0. 0. 2. 2.))
(MOVEM 1. -4. P)
(JRST 0. G0082)
G0083
(MOVEI 4. 'BASIS)
(MOVEI 3. 'KNOWLEDGE)
(MOVE 2. -6. P)
(MOVE 1. -2. P)
(CALL 4. 'CSR:UPDATE-R-GRAPH)
(PUSH P 1.)
(MOVEI 1. '*P-UNIT*)
(JSP T %NCONS)
(MOVE 2. (SPECIAL S-PREM-LT-TYPE))
(PUSH P 1.)
(MOVEI 1. 'LT-TYPE)
(JSP T %CONS)
(JSP T %NCONS)
(JSP T %NCONS)
(MOVEI 2. 'F-DESCRIPTS)
(JSP T %XCONS)
(MOVE 2. (SPECIAL S-PREM-SENT))
(JSP T %XCONS)
(MOVEI 2. 'FORMULA)
(JSP T %XCONS)
(SKIPN 2. 0. P)
(MOVEI 2. NILPROPS)
(HRRM 1. 0. 2.)
(SETZB 4. 3.)
(MOVEI 2. '() )
(MOVEI 1. 'INDETERMINATE)
(JSP T %HUNK4)
(HRRZ 4. @ -8. P)
(MOVEI 3. 0. 1.)
(POP P 2.)
(MOVEI 1. 'QUERY)
(JSP T %HUNK4)
(PUSH P 1.)
(MOVEI 4. 'FRONTIER)
(MOVEI 3. 'TARGET)
(MOVE 2. -8. P)
(CALL 4. 'CSR:UPDATE-R-GRAPH)
(PUSH P 1.)
(MOVEI T G0105)
(PUSH P T)
(PUSH P (% 0. 0. 'ORDINARY-CONSID))
(PUSH P (% 0. 0. 'QUANTIFIED-MODUS-PONENS))
(JSP T %NCONS)
(MOVE 2. -5. P)
(JSP T %XCONS)
(PUSH P 1.)
(PUSH P -15. P)
(PUSH P (% 0. 0. 'CERTAIN-AWPC))
(PUSH P (% 0. 0. '() ))
(MOVE 1. -7. P)
(JSP T %NCONS)
(PUSH P 1.)
(PUSH P (% 0. 0. '() ))
(PUSH P -11. P)
(PUSH P -10. P)
(PUSH P -20. P)
(MOVNI T 11.)
(JCALL 14. 'HUNK)
G0105
(PUSH P 1.)
(CALL 1. 'CSR:INSTALL-CONSID-LINK)
(MOVE 2. -8. P)
(POP P 1.)
(JSP T %CONS)
(SUB P (% 0. 0. 3. 3.))
(MOVEM 1. -4. P)
G0082
(SUB P (% 0. 0. 1. 1.))
(PUSHJ P UNBIND)
(PUSHJ P UNBIND)
(SUB P (% 0. 0. 2. 2.))
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0022)
G0072
(SKIPN 0. -1. P)
(JRST 0. G0113)
(MOVE 1. -1. P)
(CALL 1. 'LENGTH)
(MOVEI 2. 'NUMBER-OF-NEW-CONSIDS)
(JSP T %XCONS)
(JSP T %NCONS)
(MOVEI 2. '(TRIAL-RESULT . SUCCESS))
(JSP T %XCONS)
(JRST 0. G0112)
G0113
(MOVEI 1. '((TRIAL-RESULT . FAILURE)))
G0112
(PUSHJ P UNBIND)
(PUSHJ P UNBIND)
(SUB P (% 0. 0. 6. 6.))
(POPJ P)
()
(LAP STATIST-BM-PREDICATE1 SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS STATIST-BM-PREDICATE1 (() . 1.))
(PUSH P 1.)
(CALL 1. 'LT-TYPE)
(CAIE 1. 'ATOMICPROPO)
(JRST 0. G0003)
(MOVE 1. 0. P)
(NCALL 1. 'LENGTH)
(CAIE 7. 2.)
(TDZA 1. 1.)
(MOVEI 1. 'T)
(JRST 0. G0002)
G0003
(MOVEI 1. '() )
G0002
(JUMPN 1. G0001)
(MOVE 1. 0. P)
(CALL 1. 'LT-TYPE)
(CAIE 1. 'NEGPROPO)
(JRST 0. G0009)
(HRRZ 1. @ 0. P)
(HLRZ 1. 0. 1.)
(CALL 1. 'STATIST-BM-PREDICATE1)
(JRST 0. G0008)
G0009
(MOVEI 1. '() )
G0008
G0001
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP |[MRS,LSP]CSREAS.LSP←7.| SUBR)
(EVAL (SETQ IBASE 10.))
(PUSH P 1.)
(MOVEI 2. 0. 1.)
(MOVEI 1. 'LT-TYPE)
(CALL 2. 'ASSQ)
(HRRZ 2. 0. 1.)
(CAIE 2. 'QUANTIFIERFORM)
(JRST 0. G0006)
(MOVE 2. 0. P)
(MOVEI 1. 'LT-DETERMINER)
(CALL 2. 'ASSQ)
(HRRZ 2. 0. 1.)
(CAIE 2. 'GREAT-MAJORITY)
(JRST 0. G0006)
(PUSH P (SPECIAL CONCL-LT-TYPE))
(MOVE 2. -1. P)
(MOVEI 1. 'LT-TYPE*Q-KERNEL)
(CALL 2. 'ASSQ)
(HRRZ 2. 0. 1.)
(CAME 2. 0. P)
(TDZA 1. 1.)
(MOVEI 1. 'T)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0005)
G0006
(MOVEI 1. '() )
G0005
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP |[MRS,LSP]CSREAS.LSP←8.| SUBR)
(EVAL (SETQ IBASE 10.))
(MOVE 2. (SPECIAL Q-KERNEL-PATT))
(HRRZ 1. 0. 1.)
(HLRZ 1. 0. 1.)
(JCALL 2. '%UMATCH)
()
(LAP |[MRS,LSP]CSREAS.LSP←9.| SUBR)
(EVAL (SETQ IBASE 10.))
(MOVEI 2. 'VERY-LIKELY)
(HLRZ 1. 0. 1.)
(JCALL 2. '≥-BEL-LEVEL)
()
(LAP |[MRS,LSP]CSREAS.LSP←10.| SUBR)
(EVAL (SETQ IBASE 10.))
(PUSH P (SPECIAL S-PREM-LT-TYPE))
(MOVEI 2. 0. 1.)
(MOVEI 1. 'LT-TYPE)
(CALL 2. 'ASSQ)
(HRRZ 2. 0. 1.)
(CAME 2. 0. P)
(TDZA 1. 1.)
(MOVEI 1. 'T)
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP |[MRS,LSP]CSREAS.LSP←11.| SUBR)
(EVAL (SETQ IBASE 10.))
(MOVE 2. (SPECIAL S-PREM-SENT))
(JCALL 2. 'EQUAL)
()
(LAP |[MRS,LSP]CSREAS.LSP←12.| SUBR)
(EVAL (SETQ IBASE 10.))
(MOVEI 2. 'VERY-LIKELY)
(HLRZ 1. 0. 1.)
(JCALL 2. '≥-BEL-LEVEL)
()
(LAP STATIST-B-METHOD SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS STATIST-B-METHOD (() . 1.))
(PUSH P 1.)
(HRRZ 1. 1. 1.)
(HRRZ 1. 1. 1.)
(MOVEI 2. 'FORMULA)
(CALL 2. 'GET)
(PUSH P 1.)
(HRRZ 1. @ -1. P)
(PUSH P 1.)
(MOVE 1. -1. P)
(CALL 1. 'LT-TYPE)
(JSP T SPECBIND)
(0. 1. (SPECIAL CONCL-LT-TYPE))
(CAIE 1. 'ATOMICPROPO)
(JRST 0. G0041)
(HRRZ 1. @ -1. P)
(HLRZ 1. 0. 1.)
(JRST 0. G0040)
G0041
(CAIE 1. 'NEGPROPO)
(JRST 0. G0043)
(HRRZ 1. @ -1. P)
(JSP T (CARCDR 3.) 0. CADAR)
(JRST 0. G0040)
G0043
(MOVEI 1. '() )
G0040
(PUSH P 1.)
(MOVE 1. (SPECIAL CONCL-LT-TYPE))
(CAIE 1. 'ATOMICPROPO)
(JRST 0. G0048)
(MOVE 1. -2. P)
(NCALL 1. 'LENGTH)
(CAIE 7. 2.)
(JRST 0. G0049)
(MOVEI 1. '?X)
(JSP T %NCONS)
(HLRZ 2. @ -2. P)
(JSP T %XCONS)
(JRST 0. G0047)
G0049
(MOVEI 1. '() )
(JRST 0. G0047)
G0048
(CAIE 1. 'NEGPROPO)
(JRST 0. G0055)
(HRRZ 1. @ -2. P)
(HLRZ 1. 0. 1.)
(CALL 1. 'LT-TYPE)
(CAIE 1. 'ATOMICPROPO)
(JRST 0. G0056)
(HRRZ 1. @ -2. P)
(HLRZ 1. 0. 1.)
(NCALL 1. 'LENGTH)
(CAIE 7. 2.)
(JRST 0. G0056)
(PUSH P -2. P)
(HRRZ 1. @ 0. P)
(HLRZ 1. 0. 1.)
(HLRZ 1. 0. 1.)
(MOVEI 2. '(?X))
(JSP T %CONS)
(JSP T %NCONS)
(MOVEI 2. '¬)
(JSP T %XCONS)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0047)
G0056
(MOVEI 1. '() )
(JRST 0. G0047)
G0055
(MOVEI 1. '() )
G0047
(JSP T SPECBIND)
(0. 1. (SPECIAL Q-KERNEL-PATT))
(PUSH P (% 0. 0. '() ))
(MOVEI 5. '0.)
(MOVEM 5. (SPECIAL *:ARN))
(MOVEI 4. '|[MRS,LSP]CSREAS.LSP←9.|)
(MOVEI 3. '|[MRS,LSP]CSREAS.LSP←8.|)
(MOVEI 2. '|[MRS,LSP]CSREAS.LSP←7.|)
(MOVE 1. -2. P)
(CALL 4. 'CSR:KNOWLEDGE-LOOKUP-ALL)
(PUSH P 1.)
(MOVE 7. @ (SPECIAL *:ARN))
(CAIL 7. 1.)
(JRST 0. G0069)
(MOVEI 1. '1.)
(CALL 1. 'SI:CHECK-MULTIPLICITIES)
G0069
(MOVEI 5. '0.)
(MOVEM 5. (SPECIAL *:ARN))
(PUSH P (SPECIAL *:AR2))
(POP P 2.)
(POP P 1.)
(CALL 2. '*NCONC)
(PUSH P 1.)
G0022
(SKIPN 0. 0. P)
(JRST 0. G0072)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(HRRZ 1. 1. 1.)
(MOVEI 2. 'FORMULA)
(CALL 2. 'GET)
(PUSH P 1.)
(HLRZ 2. 0. 1.)
(MOVEI 1. '2.)
(CALL 2. 'NTH)
(PUSH P 1.)
(MOVE 1. -5. P)
(JSP T %NCONS)
(POP P 2.)
(JSP T %XCONS)
(JSP T SPECBIND)
(0. 1. (SPECIAL S-PREM-SENT))
(CALL 1. 'LT-TYPE)
(JSP T SPECBIND)
(0. 1. (SPECIAL S-PREM-LT-TYPE))
(MOVEI 4. '|[MRS,LSP]CSREAS.LSP←12.|)
(MOVEI 3. '|[MRS,LSP]CSREAS.LSP←11.|)
(MOVEI 2. '|[MRS,LSP]CSREAS.LSP←10.|)
(MOVE 1. -5. P)
(CALL 4. 'CSR:KNOWLEDGE-LOOKUP)
(PUSH P 1.)
(JUMPE 1. G0083)
(MOVEI 4. 'BASIS)
(MOVEI 3. 'KNOWLEDGE)
(MOVE 2. -6. P)
(MOVE 1. -2. P)
(CALL 4. 'CSR:UPDATE-R-GRAPH)
(PUSH P 1.)
(MOVEI 4. 'BASIS)
(MOVEI 3. 'KNOWLEDGE)
(MOVE 2. -7. P)
(MOVE 1. -1. P)
(CALL 4. 'CSR:UPDATE-R-GRAPH)
(PUSH P 1.)
(MOVEI T G0086)
(PUSH P T)
(PUSH P (% 0. 0. 'ORDINARY-CONSID))
(PUSH P (% 0. 0. 'STATISTICAL-SYLLOGISM))
(JSP T %NCONS)
(MOVE 2. -4. P)
(JSP T %XCONS)
(PUSH P 1.)
(PUSH P -14. P)
(PUSH P (% 0. 0. 'DOUBTLESS-AWPC))
(PUSH P (% 0. 0. '() ))
(PUSH P (% 0. 0. '() ))
(PUSH P (% 0. 0. '() ))
(PUSH P -10. P)
(PUSH P -10. P)
(PUSH P -19. P)
(MOVNI T 11.)
(JCALL 14. 'HUNK)
G0086
(PUSH P 1.)
(CALL 1. 'CSR:INSTALL-CONSID-LINK)
(MOVE 2. -7. P)
(POP P 1.)
(JSP T %CONS)
(SUB P (% 0. 0. 2. 2.))
(MOVEM 1. -4. P)
(JRST 0. G0082)
G0083
(MOVEI 4. 'BASIS)
(MOVEI 3. 'KNOWLEDGE)
(MOVE 2. -6. P)
(MOVE 1. -2. P)
(CALL 4. 'CSR:UPDATE-R-GRAPH)
(PUSH P 1.)
(MOVEI 1. '*P-UNIT*)
(JSP T %NCONS)
(MOVE 2. (SPECIAL S-PREM-LT-TYPE))
(PUSH P 1.)
(MOVEI 1. 'LT-TYPE)
(JSP T %CONS)
(JSP T %NCONS)
(JSP T %NCONS)
(MOVEI 2. 'F-DESCRIPTS)
(JSP T %XCONS)
(MOVE 2. (SPECIAL S-PREM-SENT))
(JSP T %XCONS)
(MOVEI 2. 'FORMULA)
(JSP T %XCONS)
(SKIPN 2. 0. P)
(MOVEI 2. NILPROPS)
(HRRM 1. 0. 2.)
(SETZB 4. 3.)
(MOVEI 2. '() )
(MOVEI 1. 'INDETERMINATE)
(JSP T %HUNK4)
(HRRZ 4. @ -8. P)
(MOVEI 3. 0. 1.)
(POP P 2.)
(MOVEI 1. 'QUERY)
(JSP T %HUNK4)
(PUSH P 1.)
(MOVEI 4. 'FRONTIER)
(MOVEI 3. 'TARGET)
(MOVE 2. -8. P)
(CALL 4. 'CSR:UPDATE-R-GRAPH)
(PUSH P 1.)
(MOVEI T G0105)
(PUSH P T)
(PUSH P (% 0. 0. 'ORDINARY-CONSID))
(PUSH P (% 0. 0. 'STATISTICAL-SYLLOGISM))
(JSP T %NCONS)
(MOVE 2. -5. P)
(JSP T %XCONS)
(PUSH P 1.)
(PUSH P -15. P)
(PUSH P (% 0. 0. 'DOUBTLESS-AWPC))
(PUSH P (% 0. 0. '() ))
(MOVE 1. -7. P)
(JSP T %NCONS)
(PUSH P 1.)
(PUSH P (% 0. 0. '() ))
(PUSH P -11. P)
(PUSH P -10. P)
(PUSH P -20. P)
(MOVNI T 11.)
(JCALL 14. 'HUNK)
G0105
(PUSH P 1.)
(CALL 1. 'CSR:INSTALL-CONSID-LINK)
(MOVE 2. -8. P)
(POP P 1.)
(JSP T %CONS)
(SUB P (% 0. 0. 3. 3.))
(MOVEM 1. -4. P)
G0082
(SUB P (% 0. 0. 1. 1.))
(PUSHJ P UNBIND)
(PUSHJ P UNBIND)
(SUB P (% 0. 0. 2. 2.))
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0022)
G0072
(SKIPN 0. -1. P)
(JRST 0. G0113)
(MOVE 1. -1. P)
(CALL 1. 'LENGTH)
(MOVEI 2. 'NUMBER-OF-NEW-CONSIDS)
(JSP T %XCONS)
(JSP T %NCONS)
(MOVEI 2. '(TRIAL-RESULT . SUCCESS))
(JSP T %XCONS)
(JRST 0. G0112)
G0113
(MOVEI 1. '((TRIAL-RESULT . FAILURE)))
G0112
(PUSHJ P UNBIND)
(PUSHJ P UNBIND)
(SUB P (% 0. 0. 6. 6.))
(POPJ P)
()
(SETQ *ALL-R-HEURISTIC-EXPERTS-LIST* (LIST (HUNK 'NORMAL-EVENT-CHAIN () () () () () 'HEURISTIC-EXPERT)))
(SETQ *ALL-RP-NODE-FIELDS* '(|r-graph| |type| |content| |rlvt-consids| |part-consids| |trav-list|) *PRINTING-RP-NODE-FIELDS* '(|type| |content| |rlvt-consids| |goal-rlvt-cs| |part-consids| |goal-part-cs|) *ALL-CONSID-FIELDS* '(|r-graph| |type| |rule| |prem-nodes| |concl-node| |goal-nodes| |inher-rel-strength| |force| |trav-list|) *PRINTING-CONSID-FIELDS* '(|type| |rule| |inher-rel-strength| |force| |premise-formulas| |conclusion-formula| |goal-formulas|) *ALL-BELIEF-FIELDS* '(|type| |p-unit| |epistatus| |wt-cntxt|) *PRINTING-BLF∧EPIST-FIELDS* '(|type| |context| |formula| |f-descripts| |bel-level| |bl-grounds| |bel-firmness| |bf-grounds|) *ALL-TASK-FIELDS* '(|effort| |priority| |description| |r-expert| |method| |arguments| |trial-report|) *PRINTING-TASK-FIELDS* '(|r-expert| |description| |argument-wff| |method| |trial-report| |priority| |effort|) -- '-- : ': |: | '|: | :: ':: -> '-> |(| '|(| |)| '|)| |: | '|: | K 'K)
(LAP XPRG LSUBR)
(EVAL (SETQ IBASE 10.))
(JSP D *LCALL)
(COMMENT ARGLIST = (&OPTIONAL (TERMINAL-TYPE 'DM) (BASIS-KEY 'T) (R-GRAPH RGRAPH)))
(PUSH P 1.)
(JSP T SPECBIND)
(0. 0. (SPECIAL TERMINAL-TYPE))
(MOVE 7. 0. 1.)
(JUMPLE 7. G0002)
(MOVE 5. ARGLOC)
(HRRZ 1. 1. 5.)
(JSP T PDLNMK)
(JRST 0. G0001)
G0002
(MOVEI 1. 'DM)
G0001
(MOVEM 1. (SPECIAL TERMINAL-TYPE))
(CAIG 7. 1.)
(JRST 0. G0008)
(MOVE 5. ARGLOC)
(HRRZ 1. 2. 5.)
(JRST 0. G0007)
G0008
(MOVEI 1. 'T)
G0007
(PUSH P 1.)
(CAIG 7. 2.)
(JRST 0. G0013)
(MOVE 5. ARGLOC)
(HRRZ 1. 3. 5.)
(JRST 0. G0012)
G0013
(MOVE 1. (SPECIAL RGRAPH))
G0012
(PUSH P 1.)
(MOVEI T G0017)
(PUSH P T)
(PUSH P (SPECIAL TERMINAL-TYPE))
(PUSH P -3. P)
(PUSH P 1.)
(MOVNI T 3.)
(JCALL 14. 'EXPLORE-R-GRAPH)
G0017
(SUB P (% 0. 0. 3. 3.))
(JRST 0. UNBIND)
()
(ARGS 'XPRG '(0 . 3))
(LAP EXPLORE-R-GRAPH LSUBR)
(EVAL (SETQ IBASE 10.))
(JSP D *LCALL)
(COMMENT ARGLIST = (&OPTIONAL (TERMINAL-TYPE 'DM) (BASIS-KEY 'T) (R-GRAPH RGRAPH)))
(PUSH P 1.)
(JSP T SPECBIND)
(0. 0. (SPECIAL TERMINAL-TYPE))
(MOVE 7. 0. 1.)
(JUMPLE 7. G0004)
(MOVE 5. ARGLOC)
(HRRZ 1. 1. 5.)
(JSP T PDLNMK)
(JRST 0. G0003)
G0004
(MOVEI 1. 'DM)
G0003
(MOVEM 1. (SPECIAL TERMINAL-TYPE))
(CAIG 7. 1.)
(JRST 0. G0010)
(MOVE 5. ARGLOC)
(HRRZ 1. 2. 5.)
(JRST 0. G0009)
G0010
(MOVEI 1. 'T)
G0009
(PUSH P 1.)
(CAIG 7. 2.)
(JRST 0. G0015)
(MOVE 5. ARGLOC)
(HRRZ 1. 3. 5.)
(JRST 0. G0014)
G0015
(MOVE 1. (SPECIAL RGRAPH))
G0014
(PUSH P 1.)
(JSP T SPECBIND)
(0. 0. (SPECIAL CURRENT-ITEM))
(0. 0. (SPECIAL CURRENT-ITEM-PATH))
(0. 0. (SPECIAL RP-NODE-DISPLAY-DIRECTORY-PTR))
(0. 0. (SPECIAL CONSID-DISPLAY-DIRECTORY-PTR))
(0. 0. (SPECIAL RP-NODE-GOAL-DISPLAY-DIRECTORY-PTR))
(0. 0. (SPECIAL CONSID-GOAL-DISPLAY-DIRECTORY-PTR))
(0. 0. (SPECIAL RG-GOAL-DISPLAY-MAX-LEVEL))
(0. 0. (SPECIAL RG-FULL-DISPLAY-MAX-LEVEL))
(0. 0. (SPECIAL PROMPT-STRING))
(0. 0. (SPECIAL RG-DISPLAY-LIST-PTR))
(0. 0. (SPECIAL RG-NORM-DISPLAY-LIST))
(0. 0. (SPECIAL RG-DISPLAY-MAX-LEVEL))
(0. 0. (SPECIAL RG-GOAL-DISPLAY-LIST-PTR))
(0. 0. (SPECIAL RG-NORM-GOAL-DISPLAY-LIST))
(0. 0. (SPECIAL RG-FULL-DISPLAY-LIST-PTR))
(0. 0. (SPECIAL RG-NORM-FULL-DISPLAY-LIST))
(0. 0. (SPECIAL RLVT-CNSDS))
(0. 0. (SPECIAL GOAL-RLVT-CNSDS))
(0. 0. (SPECIAL PART-CNSDS))
(0. 0. (SPECIAL GOAL-PART-CNSDS))
(0. 0. (SPECIAL RPND-TALLY))
(0. 0. (SPECIAL CNSD-TALLY))
(0. 0. (SPECIAL GOAL-RPND-TALLY))
(0. 0. (SPECIAL GOAL-CNSD-TALLY))
(HLRZ 1. 0. 1.)
(JRST 0. G0019)
G0020
(MOVE 1. -1. P)
(CAIE 1. 'K)
(JRST 0. G0022)
(MOVE 1. 0. P)
(HRRZ 1. 2. 1.)
(JRST 0. G0019)
G0022
(MOVEI 1. '() )
G0019
(CALL 1. 'REVERSE)
(HLRZ 2. 0. 1.)
(MOVEM 2. (SPECIAL CURRENT-ITEM))
(EXCH 1. 2.)
(PUSH P 2.)
(JSP T %NCONS)
(MOVEM 1. (SPECIAL CURRENT-ITEM-PATH))
(MOVEI 1. '() )
(JSP T %NCONS)
(MOVEM 1. (SPECIAL RP-NODE-DISPLAY-DIRECTORY-PTR))
(MOVEI 1. '() )
(JSP T %NCONS)
(MOVEM 1. (SPECIAL RP-NODE-GOAL-DISPLAY-DIRECTORY-PTR))
(MOVEI 1. '() )
(JSP T %NCONS)
(MOVEM 1. (SPECIAL CONSID-DISPLAY-DIRECTORY-PTR))
(MOVEI 1. '() )
(JSP T %NCONS)
(MOVEM 1. (SPECIAL CONSID-GOAL-DISPLAY-DIRECTORY-PTR))
(MOVEI 1. '() )
(JSP T %NCONS)
(MOVEM 1. (SPECIAL RG-DISPLAY-LIST-PTR))
(MOVEI 1. '() )
(JSP T %NCONS)
(MOVEM 1. (SPECIAL RG-GOAL-DISPLAY-LIST-PTR))
(MOVEI 1. '() )
(JSP T %NCONS)
(MOVEM 1. (SPECIAL RG-FULL-DISPLAY-LIST-PTR))
(MOVEI 5. '0.)
(MOVEM 5. (SPECIAL RPND-TALLY))
(MOVEI 4. '0.)
(MOVEM 4. (SPECIAL CNSD-TALLY))
(MOVEI 3. '0.)
(MOVEM 3. (SPECIAL GOAL-RPND-TALLY))
(MOVEI 5. '0.)
(MOVEM 5. (SPECIAL GOAL-CNSD-TALLY))
(MOVEI 5. '0.)
(MOVEM 5. (SPECIAL RG-DISPLAY-MAX-LEVEL))
(MOVEI 5. '0.)
(MOVEM 5. (SPECIAL RG-GOAL-DISPLAY-MAX-LEVEL))
(MOVEI 5. '0.)
(MOVEM 5. (SPECIAL RG-FULL-DISPLAY-MAX-LEVEL))
(MOVEI 5. 'T)
(MOVEM 5. (SPECIAL *NOPOINT))
(MOVEI 5. 'RG**)
(MOVEM 5. (SPECIAL PROMPT-STRING))
(CALL 0. '*TERPRI)
(CALL 0. '*TERPRI)
(CALL 0. '*TERPRI)
(STRT 0. (% SIXBIT |W↑%↑,↑#↑//↑-↑% ↑4↑// EXPLORE-REASONING-GRAPH.!|))
(CALL 0. '*TERPRI)
(STRT 0. (% SIXBIT |Y↑//↑5 ↑!↑2↑% ↑.↑//↑7 ↑%↑8↑!↑-↑)↑.↑)↑.↑' ↑! ↑#↑//↑-↑-↑//↑.↑3↑%↑.↑3↑% ↑2↑%↑!↑3↑//↑.↑)↑.↑' ↑'↑2↑!↑0↑( ↑#↑//↑.↑3↑4↑2↑5↑#↑4↑%↑$ ↑"↑9 !|))
(CALL 0. '*TERPRI)
(STRT 0. (% SIXBIT |CSR:INVESTIGATE-FROM-MEMORY; ↑0↑,↑%↑!↑3↑% ↑4↑9↑0↑% ↑#↑//↑-↑-↑!↑.↑$↑3 ↑4↑// ↑4↑(↑% ↑0↑2↑//↑-↑0↑4 RG**.!|))
(PUSH P (% 0. 0. '() ))
G0001
(CALL 0. '*TERPRI)
(MOVE 1. (SPECIAL PROMPT-STRING))
(CALL 1. '*PRINC)
(CALL 0. '*READ)
(MOVEM 1. 0. P)
(JUMPE 1. G0038)
(LSH 1. -9.)
(MOVE 7. ST 1.)
(TLNN 7. 4096.)
(JRST 0. G0037)
G0038
(MOVE 1. 0. P)
(JRST 0. G0036)
G0037
(SKIPN 1. 0. P)
(MOVEI 1. 'T)
(LSH 1. -9.)
(HRRZ 1. ST 1.)
(CAIE 1. 'LIST)
(JRST 0. G0039)
(HLRZ 1. @ 0. P)
(JUMPE 1. G0042)
(LSH 1. -9.)
(MOVE 7. ST 1.)
(TLNN 7. 4096.)
(JRST 0. G0039)
G0042
(HLRZ 1. @ 0. P)
(JRST 0. G0036)
G0039
(CALL 0. '*TERPRI)
(STRT 0. (% SIXBIT | - ↑)↑-↑0↑2↑//↑0↑%↑2 ↑#↑//↑-↑-↑!↑.↑$ -- ↑0↑,↑%↑!↑3↑% ↑4↑2↑9 ↑!↑'↑!↑)↑. ...!|))
(JRST 0. G0001)
G0036
(PUSH P 1.)
(CAIE 1. 'DS)
(JRST 0. G0047)
(MOVEI 2. 'COMPLETED)
(MOVE 1. -3. P)
(CALL 2. 'CSR:DISPLAY-RG-SUMMARY)
(JRST 0. G0046)
G0047
(CAIE 1. 'DGS)
(JRST 0. G0048)
(MOVEI 2. 'GOAL)
(MOVE 1. -3. P)
(CALL 2. 'CSR:DISPLAY-RG-SUMMARY)
(JRST 0. G0046)
G0048
(CAIE 1. 'DFS)
(JRST 0. G0049)
(MOVEI 2. 'FULL)
(MOVE 1. -3. P)
(CALL 2. 'CSR:DISPLAY-RG-SUMMARY)
(JRST 0. G0046)
G0049
(CAIE 1. 'MI)
(JRST 0. G0050)
(HRRZ 2. @ -1. P)
(MOVEI 1. 'SPEC)
(CALL 2. 'MOVE-TO-NEW-ITEM)
(JRST 0. G0046)
G0050
(CAIE 1. 'CI)
(JRST 0. G0052)
(CALL 0. 'DISPLAY-CURRENT-ITEM)
(JRST 0. G0046)
G0052
(CAIN 1. 'RC)
(JRST 0. G0054)
(CAIE 1. 'MRC)
(JRST 0. G0053)
G0054
(MOVE 7. -1. P)
(LSH 7. -9.)
(SKIPL 0. ST 7.)
(JRST 0. G0056)
(HRRZ 2. @ -1. P)
(JUMPN 2. G0055)
G0056
(MOVEI 1. '1.)
(JSP T %NCONS)
(MOVEI 2. 0. 1.)
(MOVEI 1. 'RLVT)
(CALL 2. 'MOVE-TO-NEW-ITEM)
(JRST 0. G0046)
G0055
(HRRZ 2. @ -1. P)
(MOVEI 1. 'RLVT)
(CALL 2. 'MOVE-TO-NEW-ITEM)
(JRST 0. G0046)
G0053
(CAIN 1. 'PC)
(JRST 0. G0062)
(CAIE 1. 'MPC)
(JRST 0. G0061)
G0062
(MOVE 7. -1. P)
(LSH 7. -9.)
(SKIPL 0. ST 7.)
(JRST 0. G0064)
(HRRZ 2. @ -1. P)
(JUMPN 2. G0063)
G0064
(MOVEI 1. '1.)
(JSP T %NCONS)
(MOVEI 2. 0. 1.)
(MOVEI 1. 'PART)
(CALL 2. 'MOVE-TO-NEW-ITEM)
(JRST 0. G0046)
G0063
(HRRZ 2. @ -1. P)
(MOVEI 1. 'PART)
(CALL 2. 'MOVE-TO-NEW-ITEM)
(JRST 0. G0046)
G0061
(CAIN 1. 'GRC)
(JRST 0. G0070)
(CAIE 1. 'MGRC)
(JRST 0. G0069)
G0070
(MOVE 7. -1. P)
(LSH 7. -9.)
(SKIPL 0. ST 7.)
(JRST 0. G0072)
(HRRZ 2. @ -1. P)
(JUMPN 2. G0071)
G0072
(MOVEI 1. '1.)
(JSP T %NCONS)
(MOVEI 2. 0. 1.)
(MOVEI 1. 'GOAL-RLVT)
(CALL 2. 'MOVE-TO-NEW-ITEM)
(JRST 0. G0046)
G0071
(HRRZ 2. @ -1. P)
(MOVEI 1. 'GOAL-RLVT)
(CALL 2. 'MOVE-TO-NEW-ITEM)
(JRST 0. G0046)
G0069
(CAIN 1. 'GPC)
(JRST 0. G0078)
(CAIE 1. 'MGPC)
(JRST 0. G0077)
G0078
(MOVE 7. -1. P)
(LSH 7. -9.)
(SKIPL 0. ST 7.)
(JRST 0. G0080)
(HRRZ 2. @ -1. P)
(JUMPN 2. G0079)
G0080
(MOVEI 1. '1.)
(JSP T %NCONS)
(MOVEI 2. 0. 1.)
(MOVEI 1. 'GOAL-PART)
(CALL 2. 'MOVE-TO-NEW-ITEM)
(JRST 0. G0046)
G0079
(HRRZ 2. @ -1. P)
(MOVEI 1. 'GOAL-PART)
(CALL 2. 'MOVE-TO-NEW-ITEM)
(JRST 0. G0046)
G0077
(CAIE 1. 'MN)
(JRST 0. G0085)
(MOVEI 1. '1.)
(JSP T %NCONS)
(MOVEI 2. 0. 1.)
(MOVEI 1. 'NEG)
(CALL 2. 'MOVE-TO-NEW-ITEM)
(JRST 0. G0046)
G0085
(CAIE 1. 'MP)
(JRST 0. G0087)
(MOVE 7. -1. P)
(LSH 7. -9.)
(SKIPL 0. ST 7.)
(JRST 0. G0089)
(HRRZ 2. @ -1. P)
(JUMPN 2. G0088)
G0089
(MOVEI 1. '1.)
(JSP T %NCONS)
(MOVEI 2. 0. 1.)
(MOVEI 1. 'PREM)
(CALL 2. 'MOVE-TO-NEW-ITEM)
(JRST 0. G0046)
G0088
(HRRZ 2. @ -1. P)
(MOVEI 1. 'PREM)
(CALL 2. 'MOVE-TO-NEW-ITEM)
(JRST 0. G0046)
G0087
(CAIE 1. 'MC)
(JRST 0. G0094)
(MOVEI 1. '1.)
(JSP T %NCONS)
(MOVEI 2. 0. 1.)
(MOVEI 1. 'CONCL)
(CALL 2. 'MOVE-TO-NEW-ITEM)
(JRST 0. G0046)
G0094
(CAIE 1. 'ID)
(JRST 0. G0096)
(MOVE 1. (SPECIAL CURRENT-ITEM))
(CALL 1. 'IDENTIFY-ITEM)
(JRST 0. G0046)
G0096
(CAIN 1. 'Q)
(JRST 0. G0098)
(CAIN 1. 'QUIT)
(JRST 0. G0098)
(CAIE 1. 'EXIT)
(JRST 0. G0097)
G0098
(SETZM 0. (SPECIAL *NOPOINT))
(MOVEI 1. '"done")
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0099)
G0097
(CAIN 1. '?)
(JRST 0. G0101)
(CAIE 1. 'HELP)
(JRST 0. G0100)
G0101
(MOVE 7. -1. P)
(LSH 7. -9.)
(SKIPL 0. ST 7.)
(TDZA 1. 1.)
(HRRZ 1. @ -1. P)
(CALL 1. 'XPRG-HELP)
(JRST 0. G0046)
G0100
(CALL 0. '*TERPRI)
(STRT 0. (% SIXBIT | - ↑5↑.↑2↑%↑#↑//↑'↑.↑)↑:↑%↑$ ↑#↑//↑-↑-↑!↑.↑$ -- ↑0↑,↑%↑!↑3↑% ↑4↑2↑9 ↑!↑'↑!↑)↑. ...!|))
G0046
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0001)
G0099
(PUSHJ P UNBIND)
(SUB P (% 0. 0. 5. 5.))
(JRST 0. UNBIND)
()
(ARGS 'EXPLORE-R-GRAPH '(0 . 3))
(LAP DISPLAY-CURRENT-ITEM SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS DISPLAY-CURRENT-ITEM (() . 0.))
(HLRZ 1. @ (SPECIAL CURRENT-ITEM))
(PUSH P 1.)
(MOVEI 5. '(ORDINARY-CONSID NEGATION-CONSID))
(JUMPE 5. G0003)
(HLRZ 4. 0. 5.)
(HRRZ 5. 0. 5.)
(CAIE 4. 0. 1.)
(JRST 0. (* -4.))
(MOVE 1. (SPECIAL CURRENT-ITEM))
(CALL 1. 'DISPLAY-CONSID)
(JRST 0. G0002)
G0003
(MOVE 1. (SPECIAL CURRENT-ITEM))
(CALL 1. 'DISPLAY-RP-NODE)
G0002
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP MOVE-TO-NEW-ITEM SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS MOVE-TO-NEW-ITEM (() . 2.))
(PUSH FXP (% 0.))
(COMMENT ARGLIST = (KEY ARGLIST &AUX (ARG (CAR ARGLIST))))
(PUSH P 1.)
(PUSH P 2.)
(HLRZ 3. 0. 2.)
(PUSH P 3.)
(CAIE 1. 'SPEC)
(JRST 0. G0007)
(MOVEI 2. '1.)
(EXCH 1. 3.)
(CALL 2. 'GETCHAR)
(PUSH P 1.)
(CAIE 1. 'P)
(JRST 0. G0010)
(HLRZ 1. @ (SPECIAL RP-NODE-DISPLAY-DIRECTORY-PTR))
(JRST 0. G0009)
G0010
(CAIE 1. 'C)
(JRST 0. G0012)
(HLRZ 1. @ (SPECIAL CONSID-DISPLAY-DIRECTORY-PTR))
(JRST 0. G0009)
G0012
(CAIE 1. 'G)
(JRST 0. G0014)
(MOVEI 2. '2.)
(MOVE 1. -1. P)
(CALL 2. 'GETCHAR)
(PUSH P 1.)
(CAIE 1. 'P)
(JRST 0. G0017)
(HLRZ 1. @ (SPECIAL RP-NODE-GOAL-DISPLAY-DIRECTORY-PTR))
(JRST 0. G0016)
G0017
(CAIE 1. 'C)
(JRST 0. G0019)
(HLRZ 1. @ (SPECIAL CONSID-GOAL-DISPLAY-DIRECTORY-PTR))
(JRST 0. G0016)
G0019
(MOVEI 2. '|MOVE-TO-NEW-ITEM - bad argument|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0016
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0009)
G0014
(MOVEI 2. '|MOVE-TO-NEW-ITEM - bad argument|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0009
(SUB P (% 0. 0. 1. 1.))
(MOVEI 2. 0. 1.)
(MOVE 1. 0. P)
(CALL 2. 'ASSQ)
(HRRZ 2. 0. 1.)
(MOVEM 2. (SPECIAL CURRENT-ITEM))
(JRST 0. G0006)
G0007
(MOVE 7. 0. 3.)
(SUBI 7. 1.)
(MOVEM 7. 0. FXP)
(MOVEI 1. 0. FXP)
(MOVEM 1. 0. P)
(MOVE 1. -2. P)
(CAIE 1. 'RLVT)
(JRST 0. G0032)
(MOVE 1. (SPECIAL RLVT-CNSDS))
(JRST 0. G0031)
G0032
(CAIE 1. 'GOAL-RLVT)
(JRST 0. G0033)
(MOVE 1. (SPECIAL GOAL-RLVT-CNSDS))
(JRST 0. G0031)
G0033
(CAIE 1. 'PART)
(JRST 0. G0034)
(MOVE 1. (SPECIAL PART-CNSDS))
(JRST 0. G0031)
G0034
(CAIE 1. 'GOAL-PART)
(JRST 0. G0035)
(MOVE 1. (SPECIAL GOAL-PART-CNSDS))
(JRST 0. G0031)
G0035
(CAIE 1. 'NEG)
(JRST 0. G0036)
(MOVE 1. (SPECIAL CURRENT-ITEM))
(HLRZ 1. 2. 1.)
(JSP T %NCONS)
(JRST 0. G0031)
G0036
(CAIE 1. 'PREM)
(JRST 0. G0039)
(MOVE 1. (SPECIAL CURRENT-ITEM))
(HLRZ 1. 1. 1.)
(JRST 0. G0031)
G0039
(CAIE 1. 'CONCL)
(JRST 0. G0041)
(MOVE 1. (SPECIAL CURRENT-ITEM))
(HRRZ 1. 2. 1.)
(JSP T %NCONS)
(JRST 0. G0031)
G0041
(MOVEI 1. '() )
G0031
(MOVEI 2. 0. 1.)
(MOVE 1. 0. P)
(CALL 2. 'NTH)
(MOVEM 1. (SPECIAL CURRENT-ITEM))
G0006
(CALL 0. 'DISPLAY-CURRENT-ITEM)
(SUB P (% 0. 0. 3. 3.))
(SUB FXP (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP DISPLAY-B∨Q-F-DESCRIPTS SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS DISPLAY-B∨Q-F-DESCRIPTS (() . 1.))
(COMMENT ARGLIST = (DESCR-LIST &AUX (TABVAL (1+ CURRENTPOS))))
(PUSH P 1.)
(MOVE 7. @ (SPECIAL CURRENTPOS))
(ADDI 7. 1.)
(PUSH FXP 7.)
(JUMPN 1. G0005)
(MOVEI 1. 'T)
(JRST 0. G0004)
G0005
(SKIPN 0. 1.)
(MOVEI 1. 'T)
(LSH 1. -9.)
(HRRZ 1. ST 1.)
(CAIE 1. 'LIST)
(JRST 0. G0006)
(MOVE 1. (SPECIAL |(|))
(CALL 1. '*PRINC)
(MOVE 7. 0. FXP)
(JSP T FXCONS)
(MOVEM 1. (SPECIAL CURRENTPOS))
(MOVE 1. 0. P)
(JSP T PDLNMK)
(PUSH P 1.)
G0002
(SKIPE 0. 0. P)
(JRST 0. G0010)
(MOVE 1. (SPECIAL |)|))
(CALL 1. '*PRINC)
(MOVEI 1. 'T)
(JRST 0. G0012)
G0010
(MOVEI 1. 0. FXP)
(CALL 1. 'TAB)
(HLRZ 1. @ 0. P)
(CALL 1. '*PRINC)
(HRRZ 1. @ 0. P)
(JUMPE 1. G0014)
(CALL 0. '*TERPRI)
(MOVEI 5. '1.)
(MOVEM 5. (SPECIAL CURRENTPOS))
G0014
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0002)
G0012
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0004)
G0006
(MOVE 1. 0. P)
(CALL 1. '*PRINC)
G0004
(SUB FXP (% 0. 0. 1. 1.))
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP IDENTIFY-ITEM SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS IDENTIFY-ITEM (() . 1.))
(COMMENT ARGLIST = (ITEM &AUX (NODE-FLAG (ISA-RP-NODE ITEM))))
(MOVEI 2. '(TARGET KNOWLEDGE))
(PUSH P 1.)
(HLRZ 1. 0. 1.)
(CALL 2. 'MEMQ)
(PUSH P 1.)
(SKIPE 0. 1.)
(SKIPA 1. (% 0. 0. '|rp-node|))
(MOVEI 1. '"consideration")
(PUSH P 1.)
(SKIPN 0. -1. P)
(JRST 0. G0072)
(HLRZ 1. @ (SPECIAL RP-NODE-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0006
(SKIPN 0. 0. P)
(JRST 0. G0075)
(HLRZ 1. @ 0. P)
(HRRZ 1. 0. 1.)
(CAME 1. -3. P)
(JRST 0. G0076)
(HLRZ 1. @ 0. P)
(JRST 0. G0080)
G0076
(HRRZ 2. @ 0. P)
(MOVEM 2. 0. P)
(JRST 0. G0006)
G0075
(MOVEI 1. '() )
G0080
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
(JUMPN 1. G0071)
(HLRZ 1. @ (SPECIAL RP-NODE-GOAL-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0011
(SKIPN 0. 0. P)
(JRST 0. G0086)
(HLRZ 1. @ 0. P)
(HRRZ 1. 0. 1.)
(CAME 1. -3. P)
(JRST 0. G0087)
(HLRZ 1. @ 0. P)
(JRST 0. G0091)
G0087
(HRRZ 2. @ 0. P)
(MOVEM 2. 0. P)
(JRST 0. G0011)
G0086
(MOVEI 1. '() )
G0091
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
(JRST 0. G0071)
G0072
(HLRZ 1. @ (SPECIAL CONSID-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0016
(SKIPN 0. 0. P)
(JRST 0. G0098)
(HLRZ 1. @ 0. P)
(HRRZ 1. 0. 1.)
(CAME 1. -3. P)
(JRST 0. G0099)
(HLRZ 1. @ 0. P)
(JRST 0. G0103)
G0099
(HRRZ 2. @ 0. P)
(MOVEM 2. 0. P)
(JRST 0. G0016)
G0098
(MOVEI 1. '() )
G0103
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
(JUMPN 1. G0071)
(HLRZ 1. @ (SPECIAL CONSID-GOAL-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0021
(SKIPN 0. 0. P)
(JRST 0. G0109)
(HLRZ 1. @ 0. P)
(HRRZ 1. 0. 1.)
(CAME 1. -3. P)
(JRST 0. G0110)
(HLRZ 1. @ 0. P)
(JRST 0. G0114)
G0110
(HRRZ 2. @ 0. P)
(MOVEM 2. 0. P)
(JRST 0. G0021)
G0109
(MOVEI 1. '() )
G0114
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
G0071
(PUSH P (% 0. 0. '"the "))
(PUSH P (% 0. 0. '() ))
(PUSH P 1.)
(JUMPN 1. G0119)
(SKIPN 0. -4. P)
(JRST 0. G0119)
(SKIPN 0. -4. P)
(JRST 0. G0122)
(HLRZ 1. @ (SPECIAL RP-NODE-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0028
(SKIPN 0. 0. P)
(JRST 0. G0125)
(MOVE 1. -6. P)
(HLRZ 1. 2. 1.)
(HLRZ 2. @ 0. P)
(HRRZ 2. 0. 2.)
(CAIE 2. 0. 1.)
(JRST 0. G0126)
(HLRZ 1. @ 0. P)
(JRST 0. G0131)
G0126
(HRRZ 3. @ 0. P)
(MOVEM 3. 0. P)
(JRST 0. G0028)
G0125
(MOVEI 1. '() )
G0131
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
(JUMPN 1. G0121)
(HLRZ 1. @ (SPECIAL RP-NODE-GOAL-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0033
(SKIPN 0. 0. P)
(JRST 0. G0137)
(MOVE 1. -6. P)
(HLRZ 1. 2. 1.)
(HLRZ 2. @ 0. P)
(HRRZ 2. 0. 2.)
(CAIE 2. 0. 1.)
(JRST 0. G0138)
(HLRZ 1. @ 0. P)
(JRST 0. G0143)
G0138
(HRRZ 3. @ 0. P)
(MOVEM 3. 0. P)
(JRST 0. G0033)
G0137
(MOVEI 1. '() )
G0143
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
(JRST 0. G0121)
G0122
(HLRZ 1. @ (SPECIAL CONSID-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0038
(SKIPN 0. 0. P)
(JRST 0. G0150)
(MOVE 1. -6. P)
(HLRZ 1. 2. 1.)
(HLRZ 2. @ 0. P)
(HRRZ 2. 0. 2.)
(CAIE 2. 0. 1.)
(JRST 0. G0151)
(HLRZ 1. @ 0. P)
(JRST 0. G0156)
G0151
(HRRZ 3. @ 0. P)
(MOVEM 3. 0. P)
(JRST 0. G0038)
G0150
(MOVEI 1. '() )
G0156
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
(JUMPN 1. G0121)
(HLRZ 1. @ (SPECIAL CONSID-GOAL-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0043
(SKIPN 0. 0. P)
(JRST 0. G0162)
(MOVE 1. -6. P)
(HLRZ 1. 2. 1.)
(HLRZ 2. @ 0. P)
(HRRZ 2. 0. 2.)
(CAIE 2. 0. 1.)
(JRST 0. G0163)
(HLRZ 1. @ 0. P)
(JRST 0. G0168)
G0163
(HRRZ 3. @ 0. P)
(MOVEM 3. 0. P)
(JRST 0. G0043)
G0162
(MOVEI 1. '() )
G0168
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
G0121
(MOVEM 1. 0. P)
(JUMPE 1. G0119)
(MOVEI 5. '"the NEGATION of ")
(SETZM 0. -2. P)
(MOVEM 5. -1. P)
G0119
(SKIPE 0. 0. P)
(JRST 0. G0173)
(SKIPE 0. -4. P)
(JRST 0. G0173)
(HLRZ 1. @ (SPECIAL RP-NODE-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0050
(SKIPN 0. 0. P)
(JRST 0. G0179)
(MOVE 1. -6. P)
(HRRZ 1. 2. 1.)
(HLRZ 2. @ 0. P)
(HRRZ 2. 0. 2.)
(CAIE 2. 0. 1.)
(JRST 0. G0180)
(HLRZ 1. @ 0. P)
(JRST 0. G0185)
G0180
(HRRZ 3. @ 0. P)
(MOVEM 3. 0. P)
(JRST 0. G0050)
G0179
(MOVEI 1. '() )
G0185
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
(JUMPN 1. G0175)
(HLRZ 1. @ (SPECIAL RP-NODE-GOAL-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0055
(SKIPN 0. 0. P)
(JRST 0. G0191)
(MOVE 1. -6. P)
(HRRZ 1. 2. 1.)
(HLRZ 2. @ 0. P)
(HRRZ 2. 0. 2.)
(CAIE 2. 0. 1.)
(JRST 0. G0192)
(HLRZ 1. @ 0. P)
(JRST 0. G0197)
G0192
(HRRZ 3. @ 0. P)
(MOVEM 3. 0. P)
(JRST 0. G0055)
G0191
(MOVEI 1. '() )
G0197
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
(JRST 0. G0175)
G0176
(HLRZ 1. @ (SPECIAL CONSID-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0060
(SKIPN 0. 0. P)
(JRST 0. G0204)
(MOVE 1. -6. P)
(HRRZ 1. 2. 1.)
(HLRZ 2. @ 0. P)
(HRRZ 2. 0. 2.)
(CAIE 2. 0. 1.)
(JRST 0. G0205)
(HLRZ 1. @ 0. P)
(JRST 0. G0210)
G0205
(HRRZ 3. @ 0. P)
(MOVEM 3. 0. P)
(JRST 0. G0060)
G0204
(MOVEI 1. '() )
G0210
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
(JUMPN 1. G0175)
(HLRZ 1. @ (SPECIAL CONSID-GOAL-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0065
(SKIPN 0. 0. P)
(JRST 0. G0216)
(MOVE 1. -6. P)
(HRRZ 1. 2. 1.)
(HLRZ 2. @ 0. P)
(HRRZ 2. 0. 2.)
(CAIE 2. 0. 1.)
(JRST 0. G0217)
(HLRZ 1. @ 0. P)
(JRST 0. G0222)
G0217
(HRRZ 3. @ 0. P)
(MOVEM 3. 0. P)
(JRST 0. G0065)
G0216
(MOVEI 1. '() )
G0222
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
G0175
(MOVEM 1. 0. P)
(JUMPE 1. G0173)
(MOVEI 5. '"a RLVT-CONSID of ")
(SETZM 0. -2. P)
(MOVEI 4. '|rp-node|)
(MOVEM 4. -3. P)
(MOVEM 5. -1. P)
G0173
(SKIPN 0. 0. P)
(JRST 0. G0228)
(CALL 0. '*TERPRI)
(STRT 0. (% SIXBIT |Y↑//↑5 ↑!↑2↑% ↑#↑5↑2↑2↑%↑.↑4↑,↑9 ↑,↑//↑#↑!↑4↑%↑$ ↑!↑4 !|))
(PUSH P -1. P)
(SKIPN 0. 0. P)
(JRST 0. G0229)
(MOVE 1. 0. P)
(CALL 1. '*PRINC)
G0229
(SUB P (% 0. 0. 1. 1.))
(PUSH P -2. P)
(SKIPN 0. 0. P)
(JRST 0. G0231)
(MOVE 1. 0. P)
(CALL 1. '*PRINC)
G0231
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. -3. P)
(CALL 1. '*PRINC)
(MOVE 1. (SPECIAL | |))
(CALL 1. '*PRINC)
(MOVE 1. 0. P)
(CALL 1. '*PRINC)
(STRT 0. (% SIXBIT |.!|))
(MOVEI 1. 'T)
(JRST 0. G0227)
G0228
(CALL 0. '*TERPRI)
(STRT 0. (% SIXBIT |T↑(↑%↑2↑% ↑)↑3 ↑.↑// ↑$↑)↑3↑0↑,↑!↑9 ↑.↑!↑-↑% ↑&↑//↑2 ↑4↑(↑% ↑#↑5↑2↑2↑%↑.↑4 !|))
(MOVE 1. -3. P)
(CALL 1. '*PRINC)
(STRT 0. (% SIXBIT |.!|))
(MOVEI 1. 'T)
G0227
(SUB P (% 0. 0. 6. 6.))
(POPJ P)
()
(LAP DISPLAY-RP-NODE SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS DISPLAY-RP-NODE (() . 1.))
(COMMENT ARGLIST = (NODE &AUX (RP-NODE-FIELDS *PRINTING-RP-NODE-FIELDS*) (CURRENTPOS 1.) (TABVAL 0.) NODE-NAME))
(PUSH P 1.)
(MOVEI 5. '1.)
(PUSH P (SPECIAL *PRINTING-RP-NODE-FIELDS*))
(JSP T SPECBIND)
(0. 5. (SPECIAL CURRENTPOS))
(MOVEI 4. '0.)
(MOVEM 4. (SPECIAL *:ARN))
(HLRZ 1. 1. 1.)
(CALL 1. 'CSR:CLASSIFY-CONSIDS)
(PUSH P 1.)
(MOVE 7. @ (SPECIAL *:ARN))
(CAIL 7. 1.)
(JRST 0. G0072)
(MOVEI 1. '1.)
(CALL 1. 'SI:CHECK-MULTIPLICITIES)
G0072
(MOVEI 5. '0.)
(MOVEM 5. (SPECIAL *:ARN))
(POP P (SPECIAL RLVT-CNSDS))
(MOVE 4. (SPECIAL *:AR2))
(MOVEM 4. (SPECIAL GOAL-RLVT-CNSDS))
(MOVEI 3. '0.)
(MOVEM 3. (SPECIAL *:ARN))
(MOVE 1. -1. P)
(HRRZ 1. 2. 1.)
(CALL 1. 'CSR:CLASSIFY-CONSIDS)
(PUSH P 1.)
(MOVE 7. @ (SPECIAL *:ARN))
(CAIL 7. 1.)
(JRST 0. G0075)
(MOVEI 1. '1.)
(CALL 1. 'SI:CHECK-MULTIPLICITIES)
G0075
(MOVEI 5. '0.)
(MOVEM 5. (SPECIAL *:ARN))
(POP P (SPECIAL PART-CNSDS))
(MOVE 4. (SPECIAL *:AR2))
(MOVEM 4. (SPECIAL GOAL-PART-CNSDS))
(HLRZ 1. @ (SPECIAL RP-NODE-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0006
(SKIPN 0. 0. P)
(JRST 0. G0080)
(HLRZ 1. @ 0. P)
(HRRZ 1. 0. 1.)
(CAME 1. -2. P)
(JRST 0. G0081)
(HLRZ 1. @ 0. P)
(JRST 0. G0085)
G0081
(HRRZ 2. @ 0. P)
(MOVEM 2. 0. P)
(JRST 0. G0006)
G0080
(MOVEI 1. '() )
G0085
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
(JUMPN 1. G0076)
(HLRZ 1. @ (SPECIAL RP-NODE-GOAL-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0011
(SKIPN 0. 0. P)
(JRST 0. G0091)
(HLRZ 1. @ 0. P)
(HRRZ 1. 0. 1.)
(CAME 1. -2. P)
(JRST 0. G0092)
(HLRZ 1. @ 0. P)
(JRST 0. G0096)
G0092
(HRRZ 2. @ 0. P)
(MOVEM 2. 0. P)
(JRST 0. G0011)
G0091
(MOVEI 1. '() )
G0096
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
(JRST 0. G0076)
G0077
(HLRZ 1. @ (SPECIAL CONSID-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0016
(SKIPN 0. 0. P)
(JRST 0. G0103)
(HLRZ 1. @ 0. P)
(HRRZ 1. 0. 1.)
(CAME 1. -2. P)
(JRST 0. G0104)
(HLRZ 1. @ 0. P)
(JRST 0. G0108)
G0104
(HRRZ 2. @ 0. P)
(MOVEM 2. 0. P)
(JRST 0. G0016)
G0103
(MOVEI 1. '() )
G0108
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
(JUMPN 1. G0076)
(HLRZ 1. @ (SPECIAL CONSID-GOAL-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0021
(SKIPN 0. 0. P)
(JRST 0. G0114)
(HLRZ 1. @ 0. P)
(HRRZ 1. 0. 1.)
(CAME 1. -2. P)
(JRST 0. G0115)
(HLRZ 1. @ 0. P)
(JRST 0. G0119)
G0115
(HRRZ 2. @ 0. P)
(MOVEM 2. 0. P)
(JRST 0. G0021)
G0114
(MOVEI 1. '() )
G0119
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
G0076
(PUSH P 1.)
(JUMPN 1. G0124)
(HLRZ 1. @ (SPECIAL RP-NODE-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0028
(SKIPN 0. 0. P)
(JRST 0. G0130)
(MOVE 1. -3. P)
(HLRZ 1. 2. 1.)
(HLRZ 2. @ 0. P)
(HRRZ 2. 0. 2.)
(CAIE 2. 0. 1.)
(JRST 0. G0131)
(HLRZ 1. @ 0. P)
(JRST 0. G0136)
G0131
(HRRZ 3. @ 0. P)
(MOVEM 3. 0. P)
(JRST 0. G0028)
G0130
(MOVEI 1. '() )
G0136
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
(JUMPN 1. G0126)
(HLRZ 1. @ (SPECIAL RP-NODE-GOAL-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0033
(SKIPN 0. 0. P)
(JRST 0. G0142)
(MOVE 1. -3. P)
(HLRZ 1. 2. 1.)
(HLRZ 2. @ 0. P)
(HRRZ 2. 0. 2.)
(CAIE 2. 0. 1.)
(JRST 0. G0143)
(HLRZ 1. @ 0. P)
(JRST 0. G0148)
G0143
(HRRZ 3. @ 0. P)
(MOVEM 3. 0. P)
(JRST 0. G0033)
G0142
(MOVEI 1. '() )
G0148
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
(JRST 0. G0126)
G0127
(HLRZ 1. @ (SPECIAL CONSID-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0038
(SKIPN 0. 0. P)
(JRST 0. G0155)
(MOVE 1. -3. P)
(HLRZ 1. 2. 1.)
(HLRZ 2. @ 0. P)
(HRRZ 2. 0. 2.)
(CAIE 2. 0. 1.)
(JRST 0. G0156)
(HLRZ 1. @ 0. P)
(JRST 0. G0161)
G0156
(HRRZ 3. @ 0. P)
(MOVEM 3. 0. P)
(JRST 0. G0038)
G0155
(MOVEI 1. '() )
G0161
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
(JUMPN 1. G0126)
(HLRZ 1. @ (SPECIAL CONSID-GOAL-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0043
(SKIPN 0. 0. P)
(JRST 0. G0167)
(MOVE 1. -3. P)
(HLRZ 1. 2. 1.)
(HLRZ 2. @ 0. P)
(HRRZ 2. 0. 2.)
(CAIE 2. 0. 1.)
(JRST 0. G0168)
(HLRZ 1. @ 0. P)
(JRST 0. G0173)
G0168
(HRRZ 3. @ 0. P)
(MOVEM 3. 0. P)
(JRST 0. G0043)
G0167
(MOVEI 1. '() )
G0173
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
G0126
(PUSH P 1.)
(JUMPE 1. G0178)
(JSP T %NCONS)
(MOVEI 2. '|Negation|)
(JSP T %XCONS)
(MOVEM 1. -1. P)
G0178
(SUB P (% 0. 0. 1. 1.))
G0124
(SKIPN 0. 0. P)
(JRST 0. G0183)
(CALL 0. '*TERPRI)
(CALL 0. '*TERPRI)
(MOVEI 1. '6.)
(CALL 1. 'TAB)
(STRT 0. (% SIXBIT |R↑%↑!↑3↑//↑.↑)↑.↑'-↑0↑2↑//↑0↑//↑3↑)↑4↑)↑//↑. N↑//↑$↑%!|))
(MOVE 1. (SPECIAL | |))
(CALL 1. '*PRINC)
(MOVE 1. 0. P)
(CALL 1. '*PRINC)
(CALL 0. '*TERPRI)
(MOVEI 1. 'DD)
(CAME 1. (SPECIAL TERMINAL-TYPE))
(JRST 0. G0182)
(CALL 0. '*TERPRI)
(JRST 0. G0182)
G0183
(CALL 0. '*TERPRI)
(CALL 0. '*TERPRI)
(MOVEI 1. '8.)
(CALL 1. 'TAB)
(STRT 0. (% SIXBIT |R↑%↑!↑3↑//↑.↑)↑.↑'-↑0↑2↑//↑0↑//↑3↑)↑4↑)↑//↑. N↑//↑$↑%!|))
(CALL 0. '*TERPRI)
(MOVEI 1. 'DD)
(CAME 1. (SPECIAL TERMINAL-TYPE))
(JRST 0. G0182)
(CALL 0. '*TERPRI)
G0182
(PUSH FXP (% 0.))
G0046
(SKIPN 0. -1. P)
(JRST 0. G0188)
(PUSH FXP (% 0.))
(HLRZ 1. @ -1. P)
(MOVEI 5. '1.)
(MOVEM 5. (SPECIAL CURRENTPOS))
(PUSH P 1.)
(NCALL 1. 'FLATC)
(MOVEI 8. 13.)
(SUB 8. 7.)
(MOVEM 8. -1. FXP)
(CALL 0. '*TERPRI)
(MOVEI 1. -1. FXP)
(CALL 1. 'TAB)
(MOVE 1. 0. P)
(CALL 1. '*PRINC)
(MOVE 1. (SPECIAL |: |))
(CALL 1. '*PRINC)
(MOVEI 1. '|content|)
(CAME 1. 0. P)
(JRST 0. G0193)
(PUSH P (SPECIAL CURRENTPOS))
(MOVE 1. -1. P)
(NCALL 1. 'FLATC)
(MOVE 8. @ 0. P)
(ADDI 8. 3.)
(ADD 7. 8.)
(JSP T FXCONS)
(MOVEM 1. (SPECIAL CURRENTPOS))
(MOVE 1. -4. P)
(HRRZ 2. 1. 1.)
(HLRZ 1. @ (SPECIAL *PRINTING-BLF∧EPIST-FIELDS*))
(PUSH P (% 0. 0. '20.))
(PUSH P 1.)
(PUSH P 2.)
(NCALL 1. 'FLATC)
(MOVE 8. @ -2. P)
(SUB 8. 7.)
(MOVEM 8. -1. FXP)
(MOVEI 1. -1. FXP)
(CALL 1. 'TAB)
(MOVE 1. -1. P)
(CALL 1. '*PRINC)
(MOVE 1. (SPECIAL |: |))
(CALL 1. '*PRINC)
(MOVE 2. 0. P)
(MOVE 1. -1. P)
(CALL 2. 'B∨Q∧EPIST-FIELD-CONTENTS)
(CALL 1. '*PRINC)
(HRRZ 1. @ (SPECIAL *PRINTING-BLF∧EPIST-FIELDS*))
(PUSH P 1.)
G0050
(SKIPN 0. 0. P)
(JRST 0. G0205)
(HLRZ 1. @ 0. P)
(MOVEI 5. '1.)
(MOVEM 5. (SPECIAL CURRENTPOS))
(PUSH P 1.)
(NCALL 1. 'FLATC)
(MOVE 8. @ -4. P)
(SUB 8. 7.)
(MOVEM 8. -1. FXP)
(CALL 0. '*TERPRI)
(MOVEI 1. -1. FXP)
(CALL 1. 'TAB)
(MOVE 1. 0. P)
(CALL 1. '*PRINC)
(MOVE 1. (SPECIAL |: |))
(CALL 1. '*PRINC)
(MOVEI 1. '|bl-grounds|)
(CAME 1. 0. P)
(JRST 0. G0210)
(PUSH P (SPECIAL CURRENTPOS))
(MOVE 1. -1. P)
(NCALL 1. 'FLATC)
(MOVE 8. @ 0. P)
(ADDI 8. 3.)
(ADD 7. 8.)
(JSP T FXCONS)
(MOVEM 1. (SPECIAL CURRENTPOS))
(MOVE 2. -3. P)
(MOVE 1. -1. P)
(CALL 2. 'B∨Q∧EPIST-FIELD-CONTENTS)
(CALL 1. 'DISPLAY-RPN-BLF-GROUNDS)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0209)
G0210
(MOVEI 1. '|bf-grounds|)
(CAME 1. 0. P)
(JRST 0. G0216)
(PUSH P (SPECIAL CURRENTPOS))
(MOVE 1. -1. P)
(NCALL 1. 'FLATC)
(MOVE 8. @ 0. P)
(ADDI 8. 3.)
(ADD 7. 8.)
(JSP T FXCONS)
(MOVEM 1. (SPECIAL CURRENTPOS))
(MOVE 2. -3. P)
(MOVE 1. -1. P)
(CALL 2. 'B∨Q∧EPIST-FIELD-CONTENTS)
(CALL 1. 'DISPLAY-RPN-BLF-GROUNDS)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0209)
G0216
(MOVEI 1. '|f-descripts|)
(CAME 1. 0. P)
(JRST 0. G0222)
(PUSH P (SPECIAL CURRENTPOS))
(MOVE 1. -1. P)
(NCALL 1. 'FLATC)
(MOVE 8. @ 0. P)
(ADDI 8. 3.)
(ADD 7. 8.)
(JSP T FXCONS)
(MOVEM 1. (SPECIAL CURRENTPOS))
(MOVE 2. -3. P)
(MOVE 1. -1. P)
(CALL 2. 'B∨Q∧EPIST-FIELD-CONTENTS)
(CALL 1. 'DISPLAY-B∨Q-F-DESCRIPTS)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0209)
G0222
(MOVE 2. -2. P)
(MOVE 1. 0. P)
(CALL 2. 'B∨Q∧EPIST-FIELD-CONTENTS)
(PUSH P 1.)
(JUMPE 1. G0230)
(CALL 1. '*PRINC)
G0230
(SUB P (% 0. 0. 1. 1.))
G0209
(SUB P (% 0. 0. 1. 1.))
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0050)
G0205
(SUB P (% 0. 0. 5. 5.))
(JRST 0. G0192)
G0193
(MOVEI 5. '(|rlvt-consids| |goal-rlvt-cs| |part-consids| |goal-part-cs|))
(JUMPE 5. G0233)
(HLRZ 4. 0. 5.)
(HRRZ 5. 0. 5.)
(CAME 4. 0. P)
(JRST 0. (* -4.))
(PUSH P (SPECIAL CURRENTPOS))
(MOVE 1. -1. P)
(NCALL 1. 'FLATC)
(MOVE 8. @ 0. P)
(ADDI 8. 3.)
(ADD 7. 8.)
(JSP T FXCONS)
(MOVEM 1. (SPECIAL CURRENTPOS))
(PUSH P (% 0. 0. '0.))
(MOVE 1. -2. P)
(CAIE 1. '|rlvt-consids|)
(JRST 0. G0239)
(MOVEI 1. '(R C))
(JRST 0. G0238)
G0239
(CAIE 1. '|part-consids|)
(JRST 0. G0240)
(MOVEI 1. '(P C))
(JRST 0. G0238)
G0240
(CAIE 1. '|goal-rlvt-cs|)
(JRST 0. G0241)
(MOVEI 1. '(G R C))
(JRST 0. G0238)
G0241
(CAIN 1. '|goal-part-cs|)
(MOVEI 1. '(G P C))
G0238
(PUSH P 1.)
(PUSH P (% 0. 0. '() ))
(MOVEI 1. 0. P)
(PUSH P 1.)
(MOVE 1. -5. P)
(CAIE 1. '|rlvt-consids|)
(JRST 0. G0244)
(MOVE 1. (SPECIAL RLVT-CNSDS))
(JRST 0. G0243)
G0244
(CAIE 1. '|goal-rlvt-cs|)
(JRST 0. G0245)
(MOVE 1. (SPECIAL GOAL-RLVT-CNSDS))
(JRST 0. G0243)
G0245
(CAIE 1. '|part-consids|)
(JRST 0. G0246)
(MOVE 1. (SPECIAL PART-CNSDS))
(JRST 0. G0243)
G0246
(CAIN 1. '|goal-part-cs|)
(SKIPA 1. (SPECIAL GOAL-PART-CNSDS))
(MOVEI 1. '() )
G0243
(PUSH P 1.)
G0056
(SKIPN 0. 0. P)
(JRST 0. G0249)
(HLRZ 1. @ 0. P)
(MOVE 7. @ -4. P)
(ADDI 7. 1.)
(MOVEM 7. 0. FXP)
(MOVEI 5. 0. FXP)
(PUSH P 1.)
(MOVEM 5. -5. P)
(HLRZ 1. @ (SPECIAL CONSID-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0063
(SKIPN 0. 0. P)
(JRST 0. G0256)
(HLRZ 1. @ 0. P)
(HRRZ 1. 0. 1.)
(CAME 1. -1. P)
(JRST 0. G0257)
(HLRZ 1. @ 0. P)
(JRST 0. G0261)
G0257
(HRRZ 2. @ 0. P)
(MOVEM 2. 0. P)
(JRST 0. G0063)
G0256
(MOVEI 1. '() )
G0261
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
(JUMPN 1. G0253)
(HLRZ 1. @ (SPECIAL CONSID-GOAL-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0068
(SKIPN 0. 0. P)
(JRST 0. G0267)
(HLRZ 1. @ 0. P)
(HRRZ 1. 0. 1.)
(CAME 1. -1. P)
(JRST 0. G0268)
(HLRZ 1. @ 0. P)
(JRST 0. G0272)
G0268
(HRRZ 2. @ 0. P)
(MOVEM 2. 0. P)
(JRST 0. G0068)
G0267
(MOVEI 1. '() )
G0272
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
G0253
(JUMPN 1. G0252)
(MOVE 1. -5. P)
(CALL 1. 'EXPLODE)
(MOVEI 2. 0. 1.)
(MOVE 1. -4. P)
(CALL 2. '*APPEND)
(CALL 1. 'IMPLODE)
G0252
(SUB P (% 0. 0. 1. 1.))
(JSP T %NCONS)
(HRRM 1. @ -1. P)
(HRRZ 2. @ 0. P)
(MOVEM 1. -1. P)
(MOVEM 2. 0. P)
(JRST 0. G0056)
G0249
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. -1. P)
(SUB P (% 0. 0. 2. 2.))
(PUSH P 1.)
(JUMPE 1. G0286)
(CALL 1. '*PRINC)
(JRST 0. G0285)
G0286
(SKIPN 0. -1. P)
(JRST 0. G0285)
(MOVE 7. -1. P)
(JUMPE 7. G0288)
(LSH 7. -9.)
(MOVE 7. ST 7.)
(TLNN 7. 4096.)
(JRST 0. G0285)
G0288
(MOVE 1. -1. P)
(CALL 1. '*PRINC)
G0285
(SUB P (% 0. 0. 3. 3.))
(CALL 0. '*TERPRI)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0192)
G0233
(MOVE 2. -3. P)
(MOVE 1. 0. P)
(CALL 2. 'RPN-FIELD-CONTENTS)
(PUSH P 1.)
(JUMPE 1. G0291)
(CALL 1. '*PRINC)
G0291
(SUB P (% 0. 0. 1. 1.))
G0192
(SUB P (% 0. 0. 1. 1.))
(SUB FXP (% 0. 0. 1. 1.))
(HRRZ 1. @ -1. P)
(MOVEM 1. -1. P)
(JRST 0. G0046)
G0188
(SUB P (% 0. 0. 2. 2.))
(SUB FXP (% 0. 0. 1. 1.))
(PUSHJ P UNBIND)
(MOVEI 1. 'T)
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP CSR:CLASSIFY-CONSIDS SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:CLASSIFY-CONSIDS (() . 1.))
(COMMENT ARGLIST = (CONSID-LIST &AUX (REG-CNSDS-PTR (NCONS () )) (GOAL-CNSDS-PTR (NCONS () ))))
(PUSH P 1.)
(MOVEI 1. '() )
(JSP T %NCONS)
(PUSH P 1.)
(MOVEI 1. '() )
(JSP T %NCONS)
(PUSH P 1.)
(MOVE 1. -2. P)
(JSP T PDLNMK)
(PUSH P 1.)
G0003
(SKIPN 0. 0. P)
(JRST 0. G0008)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(HLRZ 1. 3. 1.)
(JUMPE 1. G0011)
(MOVE 2. -2. P)
(MOVE 1. 0. P)
(CALL 2. 'TCONC)
(JRST 0. G0010)
G0011
(MOVE 2. -3. P)
(MOVE 1. 0. P)
(CALL 2. 'TCONC)
G0010
(SUB P (% 0. 0. 1. 1.))
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0003)
G0008
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. @ 0. P)
(MOVEM 1. (SPECIAL *:AR2))
(MOVEI 5. '1.)
(MOVEM 5. (SPECIAL *:ARN))
(HLRZ 1. @ -1. P)
(SUB P (% 0. 0. 3. 3.))
(POPJ P)
()
(LAP DISPLAY-RPN-BLF-GROUNDS SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS DISPLAY-RPN-BLF-GROUNDS (() . 1.))
(PUSH P 1.)
(JUMPN 1. G0022)
(MOVEI 1. 'T)
(JRST 0. G0021)
G0022
(SKIPN 0. 1.)
(MOVEI 1. 'T)
(LSH 1. -9.)
(HRRZ 1. ST 1.)
(CAIE 1. 'LIST)
(JRST 0. G0023)
(MOVE 1. (SPECIAL |(|))
(CALL 1. '*PRINC)
(MOVE 1. 0. P)
(JSP T PDLNMK)
(PUSH P 1.)
G0003
(SKIPN 0. 0. P)
(JRST 0. G0027)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(PUSH FXP (% 0.))
(HLRZ 2. 0. 1.)
(CAIE 2. 'RLVT-CONSIDS)
(JRST 0. G0030)
(MOVEI 1. '|rlvt-consids|)
(JRST 0. G0029)
G0030
(CAIE 2. 'PART-CONSIDS)
(JRST 0. G0032)
(MOVEI 1. '|part-consids|)
(JRST 0. G0029)
G0032
(CAIE 2. 'GOAL-RLVT-CONSIDS)
(JRST 0. G0034)
(MOVEI 1. '|goal-rlvt-cs|)
(JRST 0. G0029)
G0034
(CAIE 2. 'GOAL-PART-CONSIDS)
(JRST 0. G0036)
(MOVEI 1. '|goal-part-cs|)
(JRST 0. G0029)
G0036
(HRRZ 1. 0. 1.)
(HLRZ 1. 0. 1.)
(JUMPE 1. G0041)
(LSH 1. -9.)
(MOVE 7. ST 1.)
(TLNN 7. 4096.)
(JRST 0. G0039)
G0041
(HRRZ 1. @ 0. P)
(HLRZ 1. 0. 1.)
(JUMPE 1. G0039)
(EXCH 1. 2.)
(JSP T %NCONS)
(PUSH P 0. P)
(MOVEM 1. -1. P)
(HRRZ 1. @ 0. P)
(HLRZ 1. 0. 1.)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0029)
G0039
(MOVEI 2. '|DISPLAY-RPN-BLF-GROUNDS - unrecognized ground|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0029
(PUSH P 1.)
(MOVE 1. (SPECIAL |(|))
(CALL 1. '*PRINC)
(HLRZ 1. @ -1. P)
(CALL 1. '*PRINC)
(MOVE 1. (SPECIAL | |))
(CALL 1. '*PRINC)
(PUSH P (% 0. 0. '0.))
(MOVE 1. -1. P)
(CAIE 1. '|rlvt-consids|)
(JRST 0. G0051)
(MOVEI 1. '(R C))
(JRST 0. G0050)
G0051
(CAIE 1. '|part-consids|)
(JRST 0. G0052)
(MOVEI 1. '(P C))
(JRST 0. G0050)
G0052
(CAIE 1. '|goal-rlvt-cs|)
(JRST 0. G0053)
(MOVEI 1. '(G R C))
(JRST 0. G0050)
G0053
(CAIN 1. '|goal-part-cs|)
(MOVEI 1. '(G P C))
G0050
(PUSH P 1.)
(PUSH P (% 0. 0. '() ))
(MOVEI 1. 0. P)
(PUSH P 1.)
(HRRZ 1. @ -5. P)
(PUSH P 1.)
G0009
(SKIPN 0. 0. P)
(JRST 0. G0057)
(HLRZ 1. @ 0. P)
(MOVE 7. @ -4. P)
(ADDI 7. 1.)
(MOVEM 7. 0. FXP)
(MOVEI 5. 0. FXP)
(PUSH P 1.)
(MOVEM 5. -5. P)
(HLRZ 1. @ (SPECIAL CONSID-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0015
(SKIPN 0. 0. P)
(JRST 0. G0064)
(HLRZ 1. @ 0. P)
(HRRZ 1. 0. 1.)
(CAME 1. -1. P)
(JRST 0. G0065)
(HLRZ 1. @ 0. P)
(JRST 0. G0069)
G0065
(HRRZ 2. @ 0. P)
(MOVEM 2. 0. P)
(JRST 0. G0015)
G0064
(MOVEI 1. '() )
G0069
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
(JUMPN 1. G0061)
(HLRZ 1. @ (SPECIAL CONSID-GOAL-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0020
(SKIPN 0. 0. P)
(JRST 0. G0075)
(HLRZ 1. @ 0. P)
(HRRZ 1. 0. 1.)
(CAME 1. -1. P)
(JRST 0. G0076)
(HLRZ 1. @ 0. P)
(JRST 0. G0080)
G0076
(HRRZ 2. @ 0. P)
(MOVEM 2. 0. P)
(JRST 0. G0020)
G0075
(MOVEI 1. '() )
G0080
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
G0061
(JUMPN 1. G0060)
(MOVE 1. -5. P)
(CALL 1. 'EXPLODE)
(MOVEI 2. 0. 1.)
(MOVE 1. -4. P)
(CALL 2. '*APPEND)
(CALL 1. 'IMPLODE)
G0060
(SUB P (% 0. 0. 1. 1.))
(JSP T %NCONS)
(HRRM 1. @ -1. P)
(HRRZ 2. @ 0. P)
(MOVEM 1. -1. P)
(MOVEM 2. 0. P)
(JRST 0. G0009)
G0057
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. -1. P)
(SUB P (% 0. 0. 2. 2.))
(PUSH P 1.)
(JUMPE 1. G0094)
(CALL 1. '*PRINC)
(JRST 0. G0093)
G0094
(SKIPN 0. -1. P)
(JRST 0. G0093)
(MOVE 7. -1. P)
(JUMPE 7. G0096)
(LSH 7. -9.)
(MOVE 7. ST 7.)
(TLNN 7. 4096.)
(JRST 0. G0093)
G0096
(MOVE 1. -1. P)
(CALL 1. '*PRINC)
G0093
(SUB P (% 0. 0. 3. 3.))
(MOVE 1. (SPECIAL |)|))
(CALL 1. '*PRINC)
(SUB FXP (% 0. 0. 1. 1.))
(SUB P (% 0. 0. 2. 2.))
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0003)
G0027
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. (SPECIAL |)|))
(CALL 1. '*PRINC)
(JRST 0. G0021)
G0023
(MOVE 1. 0. P)
(CALL 1. '*PRINC)
G0021
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP DBQ SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS DBQ (() . 1.))
(JCALL 1. 'DISPLAY-BLF∨QRY)
()
(LAP DISPLAY-BLF∨QRY SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS DISPLAY-BLF∨QRY (() . 1.))
(COMMENT ARGLIST = (BLF∨QRY &AUX (CURRENTPOS 1.) (TABVAL 0.) (TYPE (BELIEF-TYPE BLF∨QRY))))
(PUSH P 1.)
(MOVEI 5. '1.)
(JSP T SPECBIND)
(0. 5. (SPECIAL CURRENTPOS))
(HLRZ 2. 0. 1.)
(PUSH P 2.)
(CAIE 2. 'QUERY)
(JRST 0. G0008)
(CALL 0. '*TERPRI)
(CALL 0. '*TERPRI)
(MOVEI 1. '13.)
(CALL 1. 'TAB)
(STRT 0. (% SIXBIT Q↑5↑%↑2↑9:!))
(CALL 0. '*TERPRI)
(CALL 0. '*TERPRI)
(CALL 0. '*TERPRI)
(JRST 0. G0007)
G0008
(CALL 0. '*TERPRI)
(CALL 0. '*TERPRI)
(MOVEI 1. '12.)
(CALL 1. 'TAB)
(STRT 0. (% SIXBIT |B↑%↑,↑)↑%↑&:!|))
(CALL 0. '*TERPRI)
(CALL 0. '*TERPRI)
(CALL 0. '*TERPRI)
G0007
(MOVEI 5. '1.)
(MOVEM 5. (SPECIAL CURRENTPOS))
(PUSH FXP (% 0.))
(MOVE 1. -1. P)
(JSP T PDLNMK)
(MOVEI 2. 0. 1.)
(HLRZ 1. @ (SPECIAL *PRINTING-BLF∧EPIST-FIELDS*))
(PUSH P (% 0. 0. '13.))
(PUSH P 1.)
(PUSH P 2.)
(NCALL 1. 'FLATC)
(MOVE 8. @ -2. P)
(SUB 8. 7.)
(MOVEM 8. 0. FXP)
(MOVEI 1. 0. FXP)
(CALL 1. 'TAB)
(MOVE 1. -1. P)
(CALL 1. '*PRINC)
(MOVE 1. (SPECIAL |: |))
(CALL 1. '*PRINC)
(MOVE 2. 0. P)
(MOVE 1. -1. P)
(CALL 2. 'B∨Q∧EPIST-FIELD-CONTENTS)
(CALL 1. '*PRINC)
(HRRZ 1. @ (SPECIAL *PRINTING-BLF∧EPIST-FIELDS*))
(PUSH P 1.)
G0005
(SKIPN 0. 0. P)
(JRST 0. G0017)
(HLRZ 1. @ 0. P)
(MOVEI 5. '1.)
(MOVEM 5. (SPECIAL CURRENTPOS))
(PUSH P 1.)
(NCALL 1. 'FLATC)
(MOVE 8. @ -4. P)
(SUB 8. 7.)
(MOVEM 8. 0. FXP)
(CALL 0. '*TERPRI)
(MOVEI 1. 0. FXP)
(CALL 1. 'TAB)
(MOVE 1. 0. P)
(CALL 1. '*PRINC)
(MOVE 1. (SPECIAL |: |))
(CALL 1. '*PRINC)
(MOVEI 1. '|bl-grounds|)
(CAME 1. 0. P)
(JRST 0. G0022)
(PUSH P (SPECIAL CURRENTPOS))
(MOVE 1. -1. P)
(NCALL 1. 'FLATC)
(MOVE 8. @ 0. P)
(ADDI 8. 3.)
(ADD 7. 8.)
(JSP T FXCONS)
(MOVEM 1. (SPECIAL CURRENTPOS))
(MOVE 2. -3. P)
(MOVE 1. -1. P)
(CALL 2. 'B∨Q∧EPIST-FIELD-CONTENTS)
(CALL 1. 'DISPLAY-RPN-BLF-GROUNDS)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0021)
G0022
(MOVEI 1. '|bf-grounds|)
(CAME 1. 0. P)
(JRST 0. G0028)
(PUSH P (SPECIAL CURRENTPOS))
(MOVE 1. -1. P)
(NCALL 1. 'FLATC)
(MOVE 8. @ 0. P)
(ADDI 8. 3.)
(ADD 7. 8.)
(JSP T FXCONS)
(MOVEM 1. (SPECIAL CURRENTPOS))
(MOVE 2. -3. P)
(MOVE 1. -1. P)
(CALL 2. 'B∨Q∧EPIST-FIELD-CONTENTS)
(CALL 1. 'DISPLAY-RPN-BLF-GROUNDS)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0021)
G0028
(MOVEI 1. '|f-descripts|)
(CAME 1. 0. P)
(JRST 0. G0034)
(PUSH P (SPECIAL CURRENTPOS))
(MOVE 1. -1. P)
(NCALL 1. 'FLATC)
(MOVE 8. @ 0. P)
(ADDI 8. 3.)
(ADD 7. 8.)
(JSP T FXCONS)
(MOVEM 1. (SPECIAL CURRENTPOS))
(MOVE 2. -3. P)
(MOVE 1. -1. P)
(CALL 2. 'B∨Q∧EPIST-FIELD-CONTENTS)
(CALL 1. 'DISPLAY-B∨Q-F-DESCRIPTS)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0021)
G0034
(MOVE 2. -2. P)
(MOVE 1. 0. P)
(CALL 2. 'B∨Q∧EPIST-FIELD-CONTENTS)
(PUSH P 1.)
(JUMPE 1. G0042)
(CALL 1. '*PRINC)
G0042
(SUB P (% 0. 0. 1. 1.))
G0021
(SUB P (% 0. 0. 1. 1.))
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0005)
G0017
(SUB P (% 0. 0. 5. 5.))
(SUB FXP (% 0. 0. 1. 1.))
(PUSHJ P UNBIND)
(MOVEI 1. 'T)
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP B∨Q∧EPIST-FIELD-CONTENTS SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS B∨Q∧EPIST-FIELD-CONTENTS (() . 2.))
(PUSH P 1.)
(PUSH P 2.)
(CAIE 1. '|type|)
(JRST 0. G0002)
(HLRZ 1. 0. 2.)
(JRST 0. G0001)
G0002
(CAIE 1. '|context|)
(JRST 0. G0004)
(HRRZ 1. 0. 2.)
(PUSH P 1.)
(CAME 1. (SPECIAL -ALLWORLDS-))
(JRST 0. G0007)
(MOVEI 1. '-ALLWORLDS-)
(JRST 0. G0006)
G0007
(CAME 1. (SPECIAL -NATURE-))
(JRST 0. G0008)
(MOVEI 1. '-NATURE-)
(JRST 0. G0006)
G0008
(CAME 1. (SPECIAL -REALWORLD-))
(JRST 0. G0009)
(MOVEI 1. '-REALWORLD-)
(JRST 0. G0006)
G0009
(CAME 1. (SPECIAL -CONTEXT-))
(JRST 0. G0010)
(MOVEI 1. '-CONTEXT-)
(JRST 0. G0006)
G0010
(CAMN 1. (SPECIAL -CONTEXT:GLOBAL-))
(SKIPA 1. (% 0. 0. '-CONTEXT:GLOBAL-))
(MOVEI 1. '|<a local context>|)
G0006
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0001)
G0004
(CAIE 1. '|formula|)
(JRST 0. G0012)
(MOVEI 1. 0. 2.)
(HRRZ 1. 1. 1.)
(MOVEI 2. 'FORMULA)
(CALL 2. 'GET)
(JRST 0. G0001)
G0012
(CAIE 1. '|f-descripts|)
(JRST 0. G0015)
(MOVEI 1. 0. 2.)
(HRRZ 1. 1. 1.)
(MOVEI 2. 'F-DESCRIPTS)
(CALL 2. 'GET)
(JRST 0. G0001)
G0015
(CAIE 1. '|bel-level|)
(JRST 0. G0018)
(MOVEI 1. 0. 2.)
(HLRZ 1. 1. 1.)
(HLRZ 1. 0. 1.)
(JRST 0. G0001)
G0018
(CAIE 1. '|bl-grounds|)
(JRST 0. G0021)
(MOVEI 1. 0. 2.)
(HLRZ 1. 1. 1.)
(HRRZ 1. 1. 1.)
(JRST 0. G0001)
G0021
(CAIE 1. '|bel-firmness|)
(JRST 0. G0024)
(MOVEI 1. 0. 2.)
(HLRZ 1. 1. 1.)
(HLRZ 1. 1. 1.)
(JRST 0. G0001)
G0024
(CAIE 1. '|bf-grounds|)
(JRST 0. G0027)
(MOVEI 1. 0. 2.)
(HLRZ 1. 1. 1.)
(HRRZ 1. 0. 1.)
(JRST 0. G0001)
G0027
(MOVEI 2. '|B∨Q∧EPIST-FIELD-CONTENTS - unrecognized blf∨qry-field atom|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0001
(SUB P (% 0. 0. 2. 2.))
(POPJ P)
()
(LAP RPN-FIELD-CONTENTS SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS RPN-FIELD-CONTENTS (() . 2.))
(PUSH P 1.)
(PUSH P 2.)
(CAIE 1. '|r-graph|)
(JRST 0. G0002)
(HRRZ 1. 0. 2.)
(JRST 0. G0001)
G0002
(CAIE 1. '|type|)
(JRST 0. G0004)
(HLRZ 1. 0. 2.)
(JRST 0. G0001)
G0004
(CAIE 1. '|content|)
(JRST 0. G0006)
(MOVEI 1. 0. 2.)
(HRRZ 1. 1. 1.)
(JRST 0. G0001)
G0006
(CAIE 1. '|rlvt-consids|)
(JRST 0. G0008)
(MOVEI 1. 0. 2.)
(HLRZ 1. 1. 1.)
(JRST 0. G0001)
G0008
(CAIE 1. '|part-consids|)
(JRST 0. G0010)
(MOVEI 1. 0. 2.)
(HRRZ 1. 2. 1.)
(JRST 0. G0001)
G0010
(CAIE 1. '|trav-list|)
(JRST 0. G0012)
(MOVEI 1. 0. 2.)
(HRRZ 1. 3. 1.)
(JRST 0. G0001)
G0012
(MOVEI 2. '|RPN-FIELD-CONTENTS - unrecognized rp-node-field atom|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0001
(SUB P (% 0. 0. 2. 2.))
(POPJ P)
()
(LAP DISPLAY-CONSID SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS DISPLAY-CONSID (() . 1.))
(COMMENT ARGLIST = (CNSD &AUX (CONSID-FIELDS *PRINTING-CONSID-FIELDS*) (CURRENTPOS 1.) (TABVAL 0.) CNSD-NAME))
(PUSH P 1.)
(MOVEI 5. '1.)
(PUSH P (SPECIAL *PRINTING-CONSID-FIELDS*))
(JSP T SPECBIND)
(0. 5. (SPECIAL CURRENTPOS))
(HLRZ 1. @ (SPECIAL CONSID-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0004
(SKIPN 0. 0. P)
(JRST 0. G0060)
(HLRZ 1. @ 0. P)
(HRRZ 1. 0. 1.)
(CAME 1. -2. P)
(JRST 0. G0061)
(HLRZ 1. @ 0. P)
(JRST 0. G0065)
G0061
(HRRZ 2. @ 0. P)
(MOVEM 2. 0. P)
(JRST 0. G0004)
G0060
(MOVEI 1. '() )
G0065
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
(JUMPN 1. G0057)
(HLRZ 1. @ (SPECIAL CONSID-GOAL-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0009
(SKIPN 0. 0. P)
(JRST 0. G0071)
(HLRZ 1. @ 0. P)
(HRRZ 1. 0. 1.)
(CAME 1. -2. P)
(JRST 0. G0072)
(HLRZ 1. @ 0. P)
(JRST 0. G0076)
G0072
(HRRZ 2. @ 0. P)
(MOVEM 2. 0. P)
(JRST 0. G0009)
G0071
(MOVEI 1. '() )
G0076
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
G0057
(PUSH P 1.)
(JUMPN 1. G0081)
(HLRZ 1. @ (SPECIAL RP-NODE-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0016
(SKIPN 0. 0. P)
(JRST 0. G0087)
(MOVE 1. -3. P)
(HRRZ 1. 2. 1.)
(HLRZ 2. @ 0. P)
(HRRZ 2. 0. 2.)
(CAIE 2. 0. 1.)
(JRST 0. G0088)
(HLRZ 1. @ 0. P)
(JRST 0. G0093)
G0088
(HRRZ 3. @ 0. P)
(MOVEM 3. 0. P)
(JRST 0. G0016)
G0087
(MOVEI 1. '() )
G0093
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
(JUMPN 1. G0083)
(HLRZ 1. @ (SPECIAL RP-NODE-GOAL-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0021
(SKIPN 0. 0. P)
(JRST 0. G0099)
(MOVE 1. -3. P)
(HRRZ 1. 2. 1.)
(HLRZ 2. @ 0. P)
(HRRZ 2. 0. 2.)
(CAIE 2. 0. 1.)
(JRST 0. G0100)
(HLRZ 1. @ 0. P)
(JRST 0. G0105)
G0100
(HRRZ 3. @ 0. P)
(MOVEM 3. 0. P)
(JRST 0. G0021)
G0099
(MOVEI 1. '() )
G0105
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
(JRST 0. G0083)
G0084
(HLRZ 1. @ (SPECIAL CONSID-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0026
(SKIPN 0. 0. P)
(JRST 0. G0112)
(MOVE 1. -3. P)
(HRRZ 1. 2. 1.)
(HLRZ 2. @ 0. P)
(HRRZ 2. 0. 2.)
(CAIE 2. 0. 1.)
(JRST 0. G0113)
(HLRZ 1. @ 0. P)
(JRST 0. G0118)
G0113
(HRRZ 3. @ 0. P)
(MOVEM 3. 0. P)
(JRST 0. G0026)
G0112
(MOVEI 1. '() )
G0118
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
(JUMPN 1. G0083)
(HLRZ 1. @ (SPECIAL CONSID-GOAL-DISPLAY-DIRECTORY-PTR))
(PUSH P 1.)
G0031
(SKIPN 0. 0. P)
(JRST 0. G0124)
(MOVE 1. -3. P)
(HRRZ 1. 2. 1.)
(HLRZ 2. @ 0. P)
(HRRZ 2. 0. 2.)
(CAIE 2. 0. 1.)
(JRST 0. G0125)
(HLRZ 1. @ 0. P)
(JRST 0. G0130)
G0125
(HRRZ 3. @ 0. P)
(MOVEM 3. 0. P)
(JRST 0. G0031)
G0124
(MOVEI 1. '() )
G0130
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
G0083
(PUSH P 1.)
(JUMPE 1. G0135)
(JSP T %NCONS)
(MOVEI 2. '|RLVT-Consid|)
(JSP T %XCONS)
(MOVEM 1. -1. P)
G0135
(SUB P (% 0. 0. 1. 1.))
G0081
(SKIPN 0. 0. P)
(JRST 0. G0140)
(CALL 0. '*TERPRI)
(CALL 0. '*TERPRI)
(MOVEI 1. '12.)
(CALL 1. 'TAB)
(STRT 0. (% SIXBIT |R↑%↑!↑3↑//↑.↑)↑.↑'-↑#↑//↑.↑3↑)↑$↑%↑2↑!↑4↑)↑//↑. L↑)↑.↑+!|))
(MOVE 1. (SPECIAL | |))
(CALL 1. '*PRINC)
(MOVE 1. 0. P)
(CALL 1. '*PRINC)
(CALL 0. '*TERPRI)
(CALL 0. '*TERPRI)
(JRST 0. G0139)
G0140
(CALL 0. '*TERPRI)
(CALL 0. '*TERPRI)
(MOVEI 1. '14.)
(CALL 1. 'TAB)
(STRT 0. (% SIXBIT |R↑%↑!↑3↑//↑.↑)↑.↑'-↑#↑//↑.↑3↑)↑$↑%↑2↑!↑4↑)↑//↑. L↑)↑.↑+!|))
(CALL 0. '*TERPRI)
(CALL 0. '*TERPRI)
G0139
(PUSH FXP (% 0.))
G0034
(SKIPN 0. -1. P)
(JRST 0. G0143)
(HLRZ 1. @ -1. P)
(MOVEI 5. '1.)
(MOVEM 5. (SPECIAL CURRENTPOS))
(PUSH P 1.)
(NCALL 1. 'FLATC)
(MOVEI 8. 20.)
(SUB 8. 7.)
(MOVEM 8. 0. FXP)
(CALL 0. '*TERPRI)
(MOVEI 1. 0. FXP)
(CALL 1. 'TAB)
(MOVE 1. 0. P)
(CALL 1. '*PRINC)
(MOVE 1. (SPECIAL |: |))
(CALL 1. '*PRINC)
(MOVEI 1. '|premise-formulas|)
(CAME 1. 0. P)
(JRST 0. G0148)
(MOVE 7. @ (SPECIAL CURRENTPOS))
(ADDI 7. 19.)
(JSP T FXCONS)
(MOVEM 1. (SPECIAL CURRENTPOS))
(PUSH P (% 0. 0. '() ))
(MOVEI 1. 0. P)
(PUSH P 1.)
(MOVE 1. -2. P)
(CAIE 1. '|premise-formulas|)
(JRST 0. G0152)
(MOVE 1. -5. P)
(HLRZ 1. 1. 1.)
(JRST 0. G0151)
G0152
(CAIE 1. '|goal-formulas|)
(JRST 0. G0154)
(MOVE 1. -5. P)
(HLRZ 1. 3. 1.)
(JRST 0. G0151)
G0154
(MOVEI 1. '() )
G0151
(PUSH P 1.)
G0040
(SKIPN 0. 0. P)
(JRST 0. G0158)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(HRRZ 1. 1. 1.)
(HRRZ 1. 1. 1.)
(MOVEI 2. 'FORMULA)
(CALL 2. 'GET)
(SUB P (% 0. 0. 1. 1.))
(JSP T %NCONS)
(HRRM 1. @ -1. P)
(HRRZ 2. @ 0. P)
(MOVEM 1. -1. P)
(MOVEM 2. 0. P)
(JRST 0. G0040)
G0158
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. -1. P)
(SUB P (% 0. 0. 2. 2.))
(PUSH P (SPECIAL CURRENTPOS))
(PUSH P 1.)
(PUSH P 1.)
G0043
(SKIPN 0. 0. P)
(JRST 0. G0167)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(MOVE 1. -3. P)
(CALL 1. 'TAB)
(POP P 1.)
(CALL 1. '*PRINC)
(CALL 0. '*TERPRI)
(MOVEI 5. '1.)
(MOVEM 5. (SPECIAL CURRENTPOS))
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0043)
G0167
(SUB P (% 0. 0. 3. 3.))
(JRST 0. G0147)
G0148
(MOVEI 1. '|goal-formulas|)
(CAME 1. 0. P)
(JRST 0. G0170)
(PUSH P (SPECIAL CURRENTPOS))
(MOVE 1. -1. P)
(NCALL 1. 'FLATC)
(MOVE 8. @ 0. P)
(ADDI 8. 3.)
(ADD 7. 8.)
(JSP T FXCONS)
(MOVEM 1. (SPECIAL CURRENTPOS))
(PUSH P (% 0. 0. '() ))
(MOVEI 1. 0. P)
(PUSH P 1.)
(MOVE 1. -3. P)
(CAIE 1. '|premise-formulas|)
(JRST 0. G0176)
(MOVE 1. -6. P)
(HLRZ 1. 1. 1.)
(JRST 0. G0175)
G0176
(CAIE 1. '|goal-formulas|)
(JRST 0. G0178)
(MOVE 1. -6. P)
(HLRZ 1. 3. 1.)
(JRST 0. G0175)
G0178
(MOVEI 1. '() )
G0175
(PUSH P 1.)
G0051
(SKIPN 0. 0. P)
(JRST 0. G0182)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(HRRZ 1. 1. 1.)
(HRRZ 1. 1. 1.)
(MOVEI 2. 'FORMULA)
(CALL 2. 'GET)
(SUB P (% 0. 0. 1. 1.))
(JSP T %NCONS)
(HRRM 1. @ -1. P)
(HRRZ 2. @ 0. P)
(MOVEM 1. -1. P)
(MOVEM 2. 0. P)
(JRST 0. G0051)
G0182
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. -1. P)
(SUB P (% 0. 0. 2. 2.))
(PUSH P (SPECIAL CURRENTPOS))
(PUSH P 1.)
(PUSH P 1.)
G0055
(SKIPN 0. 0. P)
(JRST 0. G0191)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(MOVE 1. -3. P)
(CALL 1. 'TAB)
(POP P 1.)
(CALL 1. '*PRINC)
(CALL 0. '*TERPRI)
(MOVEI 5. '1.)
(MOVEM 5. (SPECIAL CURRENTPOS))
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0055)
G0191
(SUB P (% 0. 0. 4. 4.))
(JRST 0. G0147)
G0170
(MOVE 2. -3. P)
(MOVE 1. 0. P)
(CALL 2. 'C-FIELD-CONTENTS)
(PUSH P 1.)
(JUMPE 1. G0196)
(CALL 1. '*PRINC)
G0196
(SUB P (% 0. 0. 1. 1.))
G0147
(SUB P (% 0. 0. 1. 1.))
(HRRZ 1. @ -1. P)
(MOVEM 1. -1. P)
(JRST 0. G0034)
G0143
(SUB P (% 0. 0. 2. 2.))
(SUB FXP (% 0. 0. 1. 1.))
(PUSHJ P UNBIND)
(MOVEI 1. 'T)
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP C-FIELD-CONTENTS SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS C-FIELD-CONTENTS (() . 2.))
(PUSH P 1.)
(PUSH P 2.)
(CAIE 1. '|r-graph|)
(JRST 0. G0002)
(HRRZ 1. 0. 2.)
(JRST 0. G0001)
G0002
(CAIE 1. '|type|)
(JRST 0. G0004)
(HLRZ 1. 0. 2.)
(JRST 0. G0001)
G0004
(CAIE 1. '|rule|)
(JRST 0. G0006)
(MOVEI 1. 0. 2.)
(HRRZ 1. 1. 1.)
(JRST 0. G0001)
G0006
(CAIE 1. '|prem-nodes|)
(JRST 0. G0008)
(MOVEI 1. 0. 2.)
(HLRZ 1. 1. 1.)
(JRST 0. G0001)
G0008
(CAIE 1. '|concl-node|)
(JRST 0. G0010)
(MOVEI 1. 0. 2.)
(HRRZ 1. 2. 1.)
(JRST 0. G0001)
G0010
(CAIE 1. '|goal-nodes|)
(JRST 0. G0012)
(MOVEI 1. 0. 2.)
(HLRZ 1. 3. 1.)
(JRST 0. G0001)
G0012
(CAIE 1. '|inher-rel-strength|)
(JRST 0. G0014)
(MOVEI 1. 0. 2.)
(HLRZ 1. 2. 1.)
(JRST 0. G0001)
G0014
(CAIE 1. '|force|)
(JRST 0. G0016)
(MOVEI 1. 0. 2.)
(HRRZ 1. 3. 1.)
(JRST 0. G0001)
G0016
(CAIE 1. '|conclusion-formula|)
(JRST 0. G0018)
(MOVEI 1. 0. 2.)
(HRRZ 1. 2. 1.)
(HRRZ 1. 1. 1.)
(HRRZ 1. 1. 1.)
(MOVEI 2. 'FORMULA)
(CALL 2. 'GET)
(JRST 0. G0001)
G0018
(MOVEI 2. '|C-FIELD-CONTENTS - unrecognized consid-field atom|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0001
(SUB P (% 0. 0. 2. 2.))
(POPJ P)
()
(LAP XPRG-HELP SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS XPRG-HELP (() . 1.))
(CALL 0. '*TERPRI)
(STRT 0. (% SIXBIT |C↑//↑-↑-↑!↑.↑$↑3: DS ID MI CI (M)RC (M)GRC (M)PC (M)GPC (M)GC MN MP MC ? HELP Q QUIT!|))
(MOVEI 1. 'T)
(POPJ P)
()
(DEFPROP RG-DD-ENTRY-RG-ITEM (R-GRAPH-DISPLAY-DIRECTORY-ENTRY . RG-ITEM) DEFSTRUCT-SLOT)
(DEFPROP RG-DD-ENTRY-RG-ITEM DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP RG-DD-ENTRY-DISPLAY-NAME (R-GRAPH-DISPLAY-DIRECTORY-ENTRY . DISPLAY-NAME) DEFSTRUCT-SLOT)
(DEFPROP RG-DD-ENTRY-DISPLAY-NAME DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP MAKE-R-GRAPH-DISPLAY-DIRECTORY-ENTRY R-GRAPH-DISPLAY-DIRECTORY-ENTRY DEFSTRUCT-NAME)
(DEFPROP MAKE-R-GRAPH-DISPLAY-DIRECTORY-ENTRY DEFSTRUCT-EXPAND-CONS-MACRO MACRO)
(DEFPROP R-GRAPH-DISPLAY-DIRECTORY-ENTRY (ONE TREE () ((DISPLAY-NAME 0 () %%DEFSTRUCT-EMPTY%% NOTYPE () RG-DD-ENTRY-DISPLAY-NAME) (RG-ITEM 1 () %%DEFSTRUCT-EMPTY%% NOTYPE () RG-DD-ENTRY-RG-ITEM)) () ((MAKE-R-GRAPH-DISPLAY-DIRECTORY-ENTRY)) () () 2 () R-GRAPH-DISPLAY-DIRECTORY-ENTRY () 0 (EVAL COMPILE LOAD) ALTER-R-GRAPH-DISPLAY-DIRECTORY-ENTRY RG-DD-ENTRY- () () () () () () ) DEFSTRUCT-DESCRIPTION)
(DEFPROP ALTER-R-GRAPH-DISPLAY-DIRECTORY-ENTRY R-GRAPH-DISPLAY-DIRECTORY-ENTRY DEFSTRUCT-NAME)
(DEFPROP ALTER-R-GRAPH-DISPLAY-DIRECTORY-ENTRY DEFSTRUCT-EXPAND-ALTER-MACRO MACRO)
'R-GRAPH-DISPLAY-DIRECTORY-ENTRY
(DEFPROP RG-D-LINE-RP-NODE-WFF (R-GRAPH-DISPLAY-LINE . RP-NODE-WFF) DEFSTRUCT-SLOT)
(DEFPROP RG-D-LINE-RP-NODE-WFF DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP RG-D-LINE-RP-WFF-COLON (R-GRAPH-DISPLAY-LINE . RP-WFF-COLON) DEFSTRUCT-SLOT)
(DEFPROP RG-D-LINE-RP-WFF-COLON DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP RG-D-LINE-RP-NODE-NAME (R-GRAPH-DISPLAY-LINE . RP-NODE-NAME) DEFSTRUCT-SLOT)
(DEFPROP RG-D-LINE-RP-NODE-NAME DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP RG-D-LINE-CONSID-IDENT (R-GRAPH-DISPLAY-LINE . CONSID-IDENT) DEFSTRUCT-SLOT)
(DEFPROP RG-D-LINE-CONSID-IDENT DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP RG-D-LINE-CONSID-NAME (R-GRAPH-DISPLAY-LINE . CONSID-NAME) DEFSTRUCT-SLOT)
(DEFPROP RG-D-LINE-CONSID-NAME DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP RG-D-LINE-MAX-PREM-LEVEL (R-GRAPH-DISPLAY-LINE . MAX-PREM-LEVEL) DEFSTRUCT-SLOT)
(DEFPROP RG-D-LINE-MAX-PREM-LEVEL DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP RG-D-LINE-LEVEL (R-GRAPH-DISPLAY-LINE . LEVEL) DEFSTRUCT-SLOT)
(DEFPROP RG-D-LINE-LEVEL DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP RG-D-LINE-POINTERS (R-GRAPH-DISPLAY-LINE . POINTERS) DEFSTRUCT-SLOT)
(DEFPROP RG-D-LINE-POINTERS DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP MAKE-R-GRAPH-DISPLAY-LINE R-GRAPH-DISPLAY-LINE DEFSTRUCT-NAME)
(DEFPROP MAKE-R-GRAPH-DISPLAY-LINE DEFSTRUCT-EXPAND-CONS-MACRO MACRO)
(DEFPROP R-GRAPH-DISPLAY-LINE (ONE HUNK () ((POINTERS 0 () %%DEFSTRUCT-EMPTY%% NOTYPE () RG-D-LINE-POINTERS) (LEVEL 1 () %%DEFSTRUCT-EMPTY%% NOTYPE () RG-D-LINE-LEVEL) (MAX-PREM-LEVEL 2 () %%DEFSTRUCT-EMPTY%% NOTYPE () RG-D-LINE-MAX-PREM-LEVEL) (CONSID-NAME 3 () %%DEFSTRUCT-EMPTY%% NOTYPE () RG-D-LINE-CONSID-NAME) (CONSID-IDENT 4 () %%DEFSTRUCT-EMPTY%% NOTYPE () RG-D-LINE-CONSID-IDENT) (RP-NODE-NAME 5 () %%DEFSTRUCT-EMPTY%% NOTYPE () RG-D-LINE-RP-NODE-NAME) (RP-WFF-COLON 6 () %%DEFSTRUCT-EMPTY%% NOTYPE () RG-D-LINE-RP-WFF-COLON) (RP-NODE-WFF 7 () %%DEFSTRUCT-EMPTY%% NOTYPE () RG-D-LINE-RP-NODE-WFF)) () ((MAKE-R-GRAPH-DISPLAY-LINE)) () () 8 () R-GRAPH-DISPLAY-LINE () 0 (EVAL COMPILE LOAD) ALTER-R-GRAPH-DISPLAY-LINE RG-D-LINE- () () () () () () ) DEFSTRUCT-DESCRIPTION)
(DEFPROP ALTER-R-GRAPH-DISPLAY-LINE R-GRAPH-DISPLAY-LINE DEFSTRUCT-NAME)
(DEFPROP ALTER-R-GRAPH-DISPLAY-LINE DEFSTRUCT-EXPAND-ALTER-MACRO MACRO)
'R-GRAPH-DISPLAY-LINE
(DEFPROP RG-D-LINE-SUPP-D-LINES (D-LINE-POINTER-PAIR . SUPP-D-LINES) DEFSTRUCT-SLOT)
(DEFPROP RG-D-LINE-SUPP-D-LINES DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP RG-D-LINE-PART-D-LINE (D-LINE-POINTER-PAIR . PART-D-LINE) DEFSTRUCT-SLOT)
(DEFPROP RG-D-LINE-PART-D-LINE DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP MAKE-D-LINE-POINTER-PAIR D-LINE-POINTER-PAIR DEFSTRUCT-NAME)
(DEFPROP MAKE-D-LINE-POINTER-PAIR DEFSTRUCT-EXPAND-CONS-MACRO MACRO)
(DEFPROP D-LINE-POINTER-PAIR (ONE TREE () ((PART-D-LINE 0 () %%DEFSTRUCT-EMPTY%% NOTYPE () RG-D-LINE-PART-D-LINE) (SUPP-D-LINES 1 () %%DEFSTRUCT-EMPTY%% NOTYPE () RG-D-LINE-SUPP-D-LINES)) () ((MAKE-D-LINE-POINTER-PAIR)) () RG-D-LINE-POINTERS 2 () D-LINE-POINTER-PAIR () 0 (EVAL COMPILE LOAD) ALTER-D-LINE-POINTER-PAIR RG-D-LINE- () () () () () () ) DEFSTRUCT-DESCRIPTION)
(DEFPROP ALTER-D-LINE-POINTER-PAIR D-LINE-POINTER-PAIR DEFSTRUCT-NAME)
(DEFPROP ALTER-D-LINE-POINTER-PAIR DEFSTRUCT-EXPAND-ALTER-MACRO MACRO)
'D-LINE-POINTER-PAIR
(LAP ANY-CONCL-DESCENDANTS? SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS ANY-CONCL-DESCENDANTS? (() . 2.))
(PUSH P 1.)
(PUSH P 2.)
(HRRZ 1. 2. 1.)
(JUMPN 1. G0005)
(MOVEI 2. 'DESCENDANTS)
(JRST 0. (ERUNDO -1.))
G0005
(MOVE 1. -1. P)
(HRRZ 1. 2. 1.)
(PUSH P 1.)
(PUSH P 1.)
G0004
(SKIPN 0. 0. P)
(JRST 0. G0010)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(HRRZ 1. 2. 1.)
(PUSH P 1.)
(MOVE 2. -4. P)
(CALL 2. 'MEMQ)
(PUSH P 1.)
(JUMPE 1. G0015)
(MOVEI 2. 'DESCENDANTS)
(JRST 0. (ERUNDO -1.))
G0015
(MOVE 2. -5. P)
(MOVE 1. -1. P)
(CALL 2. 'ANY-CONCL-DESCENDANTS?)
(SUB P (% 0. 0. 3. 3.))
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0004)
G0010
(SUB P (% 0. 0. 1. 1.))
(POP P 1.)
(SUB P (% 0. 0. 2. 2.))
(POPJ P)
()
(LAP CSR:SUMMARIZE-R-GRAPH SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:SUMMARIZE-R-GRAPH (() . 2.))
(COMMENT ARGLIST = (R-GRAPH TYPE &AUX (DISPLAY-LIST-PTR (CASEQ TYPE (COMPLETED RG-DISPLAY-LIST-PTR) (GOAL RG-GOAL-DISPLAY-LIST-PTR) (FULL RG-FULL-DISPLAY-LIST-PTR)))))
(PUSH P 1.)
(PUSH P 2.)
(CAIE 2. 'COMPLETED)
(JRST 0. G0037)
(MOVE 1. (SPECIAL RG-DISPLAY-LIST-PTR))
(JRST 0. G0036)
G0037
(CAIE 2. 'GOAL)
(JRST 0. G0038)
(MOVE 1. (SPECIAL RG-GOAL-DISPLAY-LIST-PTR))
(JRST 0. G0036)
G0038
(CAIN 2. 'FULL)
(SKIPA 1. (SPECIAL RG-FULL-DISPLAY-LIST-PTR))
(MOVEI 1. '() )
G0036
(PUSH P 1.)
(HLRZ 3. 0. 1.)
(JUMPE 3. G0040)
(MOVEI 2. '|CSR:SUMMARIZE-R-GRAPH - display-list already exists!|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0040
(MOVE 1. -1. P)
(CAIE 1. 'COMPLETED)
(JRST 0. G0044)
(HLRZ 1. @ -2. P)
(PUSH P 1.)
G0003
(SKIPN 0. 0. P)
(JRST 0. G0047)
(HLRZ 1. @ 0. P)
(MOVE 4. -1. P)
(MOVEI 3. '() )
(MOVEI 2. '1.)
(CALL 4. 'CSR:CONSTRUCT-RG-DISPLAY-LINES:RP-NODE)
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0003)
G0047
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. @ 0. P)
(JUMPE 1. G0050)
(MOVEI 2. 'RG-NORM-DISPLAY-LIST)
(CALL 2. 'CSR:NORMALIZE-DISPLAY-LIST)
G0050
(JRST 0. G0043)
G0044
(CAIE 1. 'FULL)
(JRST 0. G0054)
(HLRZ 1. @ -2. P)
(PUSH P 1.)
G0006
(SKIPN 0. 0. P)
(JRST 0. G0057)
(HLRZ 1. @ 0. P)
(MOVE 4. -1. P)
(MOVEI 3. '() )
(MOVEI 2. '1.)
(CALL 4. 'CSR:CONSTRUCT-RG-FULL-DISPLAY-LINES:RP-NODE)
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0006)
G0057
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. @ 0. P)
(JUMPE 1. G0060)
(MOVEI 2. 'RG-NORM-FULL-DISPLAY-LIST)
(CALL 2. 'CSR:NORMALIZE-DISPLAY-LIST)
G0060
(JRST 0. G0043)
G0054
(CAIE 1. 'GOAL)
(JRST 0. G0064)
(HLRZ 2. @ (SPECIAL RP-NODE-DISPLAY-DIRECTORY-PTR))
(JUMPE 2. G0066)
(PUSH P (% 0. 0. '() ))
(MOVEI 1. 0. P)
(PUSH P 1.)
(PUSH P 2.)
G0012
(SKIPN 0. 0. P)
(JRST 0. G0070)
(HLRZ 1. @ 0. P)
(HRRZ 1. 0. 1.)
(JSP T %NCONS)
(HRRM 1. @ -1. P)
(HRRZ 2. @ 0. P)
(MOVEM 1. -1. P)
(MOVEM 2. 0. P)
(JRST 0. G0012)
G0070
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. -1. P)
(SUB P (% 0. 0. 2. 2.))
(JRST 0. G0065)
G0066
(HLRZ 1. @ -2. P)
G0065
(PUSH P 1.)
(PUSH P (% 0. 0. '() ))
(MOVEI 1. 0. P)
(PUSH P 1.)
G0019
(SKIPN 0. -2. P)
(JRST 0. G0079)
(HLRZ 1. @ -2. P)
(PUSH P 1.)
(PUSH P 1.)
(HLRZ 1. 1. 1.)
(PUSH P 1.)
G0025
(SKIPN 0. 0. P)
(JRST 0. G0085)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(HLRZ 1. 3. 1.)
(SUB P (% 0. 0. 1. 1.))
(JUMPE 1. G0086)
(MOVE 1. 0. P)
(JRST 0. G0090)
G0086
(HRRZ 2. @ 0. P)
(MOVEM 2. 0. P)
(JRST 0. G0025)
G0085
(MOVEI 1. '() )
G0090
(SUB P (% 0. 0. 2. 2.))
(JUMPE 1. G0082)
(MOVE 1. 0. P)
(JSP T %NCONS)
G0082
(SUB P (% 0. 0. 1. 1.))
(HRRM 1. @ 0. P)
(MOVE 1. 0. P)
(CALL 1. 'LAST)
(HRRZ 2. @ -2. P)
(MOVEM 1. 0. P)
(MOVEM 2. -2. P)
(JRST 0. G0019)
G0079
(MOVE 1. -1. P)
(SUB P (% 0. 0. 2. 2.))
(PUSH P 1.)
(HRRZ 1. 0. 1.)
(PUSH P 1.)
(HLRZ 1. @ -1. P)
(JSP T %NCONS)
(PUSH P 1.)
G0027
(SKIPE 0. -1. P)
(JRST 0. G0101)
(MOVE 1. 0. P)
(JRST 0. G0103)
G0101
(MOVEI 1. 'DESCENDANTS)
(MOVEI 2. G0106)
(JSP TT (ERSETUP -1.))
(MOVE 2. -13. P)
(HLRZ 1. @ -14. P)
(CALL 2. 'ANY-CONCL-DESCENDANTS?)
(JRST 0. (ERUNDO -2.))
G0106
(JUMPN 1. G0104)
(MOVE 2. 0. P)
(HLRZ 1. @ -1. P)
(JSP T %CONS)
(MOVEM 1. 0. P)
G0104
(HRRZ 1. @ -1. P)
(MOVEM 1. -1. P)
(JRST 0. G0027)
G0103
(SUB P (% 0. 0. 2. 2.))
(PUSH P 1.)
(HRRZ 1. 0. 1.)
(PUSH P 1.)
(HLRZ 1. @ -1. P)
(JSP T %NCONS)
(PUSH P 1.)
G0031
(SKIPE 0. -1. P)
(JRST 0. G0118)
(MOVE 1. 0. P)
(JRST 0. G0120)
G0118
(MOVEI 1. 'DESCENDANTS)
(MOVEI 2. G0123)
(JSP TT (ERSETUP -1.))
(MOVE 2. -13. P)
(HLRZ 1. @ -14. P)
(CALL 2. 'ANY-CONCL-DESCENDANTS?)
(JRST 0. (ERUNDO -2.))
G0123
(JUMPN 1. G0121)
(MOVE 2. 0. P)
(HLRZ 1. @ -1. P)
(JSP T %CONS)
(MOVEM 1. 0. P)
G0121
(HRRZ 1. @ -1. P)
(MOVEM 1. -1. P)
(JRST 0. G0031)
G0120
(SUB P (% 0. 0. 3. 3.))
(PUSH P 1.)
(PUSH P 1.)
G0034
(SKIPN 0. 0. P)
(JRST 0. G0134)
(HLRZ 1. @ 0. P)
(MOVE 4. -4. P)
(MOVEI 3. '() )
(MOVEI 2. '1.)
(CALL 4. 'CSR:CONSTRUCT-RG-FULL-DISPLAY-LINES:RP-NODE)
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0034)
G0134
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. @ -3. P)
(JUMPE 1. G0138)
(MOVEI 2. 'RG-NORM-GOAL-DISPLAY-LIST)
(CALL 2. 'CSR:NORMALIZE-DISPLAY-LIST)
G0138
(SUB P (% 0. 0. 3. 3.))
(JRST 0. G0043)
G0064
(MOVEI 1. '() )
G0043
(SUB P (% 0. 0. 3. 3.))
(POPJ P)
()
(LAP |[MRS,LSP]CSREAS.LSP←13.| SUBR)
(EVAL (SETQ IBASE 10.))
(HRRZ 1. 1. 1.)
(HRRZ 2. 1. 2.)
(MOVE 7. 0. 1.)
(CAML 7. 0. 2.)
(TDZA 1. 1.)
(MOVEI 1. 'T)
(POPJ P)
()
(LAP CSR:NORMALIZE-DISPLAY-LIST SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:NORMALIZE-DISPLAY-LIST (() . 2.))
(PUSH P 1.)
(PUSH P 2.)
(PUSH P (% 0. 0. '0.))
(PUSH P (% 0. 0. '() ))
(JSP T PDLNMK)
(PUSH P 1.)
G0004
(SKIPN 0. 0. P)
(JRST 0. G0032)
(HLRZ 1. @ 0. P)
(HLRZ 2. 0. 1.)
(MOVEM 2. -1. P)
(MOVE 7. 0. 2.)
(CAMG 7. @ -2. P)
(JRST 0. G0035)
(MOVEM 2. -2. P)
G0035
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0004)
G0032
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. -1. P)
(SUB P (% 0. 0. 2. 2.))
(PUSH P 1.)
(MOVE 1. -1. P)
(CAIE 1. 'RG-NORM-DISPLAY-LIST)
(JRST 0. G0040)
(MOVEI 1. 'RG-DISPLAY-MAX-LEVEL)
(JRST 0. G0039)
G0040
(CAIE 1. 'RG-NORM-GOAL-DISPLAY-LIST)
(JRST 0. G0041)
(MOVEI 1. 'RG-GOAL-DISPLAY-MAX-LEVEL)
(JRST 0. G0039)
G0041
(CAIE 1. 'RG-NORM-FULL-DISPLAY-LIST)
(TDZA 1. 1.)
(MOVEI 1. 'RG-FULL-DISPLAY-MAX-LEVEL)
G0039
(JSP T SPECBIND)
(0. 0. (SPECIAL REPEAT-LIST))
(MOVEI 4. 0. 1.)
(MOVE 1. 0. P)
(JSP T *SET)
(PUSH FXP 0. 1.)
G0006
(MOVE 7. 0. FXP)
(SOJN 7. G0043)
(MOVEI 1. 'T)
(JRST 0. G0045)
G0043
(MOVE 1. -2. P)
(JSP T PDLNMK)
(PUSH P 1.)
G0009
(SKIPN 0. 0. P)
(JRST 0. G0048)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(HLRZ 7. 0. 1.)
(MOVE 7. 0. 7.)
(CAME 7. 0. FXP)
(JRST 0. G0050)
(MOVEI 2. 0. 1.)
(MOVEI 1. 0. FXP)
(CALL 2. 'PROPAGATE-MAX-LEVEL)
G0050
(SUB P (% 0. 0. 1. 1.))
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0009)
G0048
(SUB P (% 0. 0. 1. 1.))
(SOS 0. 0. FXP)
(JRST 0. G0006)
G0045
(SUB FXP (% 0. 0. 1. 1.))
(PUSH P (% 0. 0. '() ))
(MOVEI 1. 0. P)
(PUSH P 1.)
(MOVE 1. -4. P)
(JSP T PDLNMK)
(PUSH P 1.)
G0016
(SKIPN 0. 0. P)
(JRST 0. G0056)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(HLRZ 7. 0. 1.)
(MOVE 7. 0. 7.)
(CAIE 7. 1.)
(TDZA 1. 1.)
(MOVEI 1. 'T)
(JUMPE 1. G0059)
(MOVE 1. 0. P)
(JSP T %NCONS)
G0059
(SUB P (% 0. 0. 1. 1.))
(HRRM 1. @ -1. P)
(MOVE 1. -1. P)
(CALL 1. 'LAST)
(HRRZ 2. @ 0. P)
(MOVEM 1. -1. P)
(MOVEM 2. 0. P)
(JRST 0. G0016)
G0056
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. -1. P)
(SUB P (% 0. 0. 2. 2.))
(MOVEI 2. '|[MRS,LSP]CSREAS.LSP←13.|)
(CALL 2. 'SORT)
(PUSH P 1.)
(PUSH P 1.)
G0023
(SKIPN 0. 0. P)
(JRST 0. G0069)
(HLRZ 1. @ 0. P)
(MOVE 2. -3. P)
(CALL 2. 'CSR:PUSH-D-LINES)
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0023)
G0069
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. @ -2. P)
(HRRZ 1. 0. 1.)
(HRRZ 1. 0. 1.)
(PUSH P 1.)
(PUSH P 1.)
G0028
(SKIPN 0. 0. P)
(JRST 0. G0074)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(HLRZ 1. 2. 1.)
(MOVE 5. (SPECIAL REPEAT-LIST))
(JUMPE 5. G0077)
(HLRZ 4. 0. 5.)
(HRRZ 5. 0. 5.)
(CAIE 4. 0. 1.)
(JRST 0. (* -4.))
(MOVE 1. 0. P)
(MOVE 5. (SPECIAL ::))
(HRRM 5. 3. 1.)
(JRST 0. G0076)
G0077
(MOVE 1. 0. P)
(MOVE 4. (SPECIAL |: |))
(HRRM 4. 3. 1.)
(MOVE 1. 0. P)
(HLRZ 1. 2. 1.)
(MOVE 2. (SPECIAL REPEAT-LIST))
(JSP T %CONS)
(MOVEM 1. (SPECIAL REPEAT-LIST))
G0076
(SUB P (% 0. 0. 1. 1.))
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0028)
G0074
(SUB P (% 0. 0. 1. 1.))
(POP P 1.)
(SUB P (% 0. 0. 4. 4.))
(JRST 0. UNBIND)
()
(LAP CSR:PUSH-D-LINES SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:PUSH-D-LINES (() . 2.))
(PUSH P 2.)
(HLRZ 2. 0. 2.)
(HRRZ 2. 0. 2.)
(HRRZ 2. 0. 2.)
(PUSH P 1.)
(JSP T %PDLC)
(MOVE 4. -1. P)
(JSP T *SET)
(HRRZ 2. @ 0. P)
(HRRZ 2. 0. 2.)
(JUMPE 2. G0009)
(MOVEI 2. 'CSR:PUSH-BEFORE?)
(HRRZ 1. @ 0. P)
(HRRZ 1. 0. 1.)
(CALL 2. 'SORT)
(HRRZ 2. @ 0. P)
(HRRM 1. 0. 2.)
(HRRZ 1. 0. 2.)
(PUSH P 1.)
(PUSH P 1.)
G0005
(SKIPN 0. 0. P)
(JRST 0. G0017)
(HLRZ 1. @ 0. P)
(MOVE 2. -3. P)
(CALL 2. 'CSR:PUSH-D-LINES)
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0005)
G0017
(SUB P (% 0. 0. 1. 1.))
(POP P 1.)
(JRST 0. G0008)
G0009
(MOVEI 1. '() )
G0008
(SUB P (% 0. 0. 2. 2.))
(POPJ P)
()
(LAP CSR:PUSH-BEFORE? SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:PUSH-BEFORE? (() . 2.))
(JSP T (0PUSH -6.))
(PUSH P 1.)
(PUSH P 2.)
(HLRZ 1. 1. 1.)
(JUMPN 1. G0070)
(MOVEI 1. 0. 2.)
(HLRZ 1. 1. 1.)
(JUMPE 1. G0070)
(MOVEI 1. 'T)
(JRST 0. G0069)
G0070
(MOVE 1. -1. P)
(HLRZ 1. 1. 1.)
(JUMPE 1. G0073)
(MOVEI 1. 0. 2.)
(HLRZ 1. 1. 1.)
(JUMPE 1. G0069)
G0073
(MOVE 1. -1. P)
(HLRZ 1. 2. 1.)
(MOVEI 2. '1.)
(CALL 2. 'GETCHAR)
(CAIE 1. 'G)
(JRST 0. G0076)
(MOVE 1. 0. P)
(HLRZ 1. 2. 1.)
(MOVEI 2. '1.)
(CALL 2. 'GETCHAR)
(CAIN 1. 'G)
(JRST 0. G0076)
(MOVEI 1. 'T)
(JRST 0. G0069)
G0076
(MOVE 1. -1. P)
(HLRZ 1. 2. 1.)
(MOVEI 2. '1.)
(CALL 2. 'GETCHAR)
(CAIN 1. 'G)
(JRST 0. G0081)
(MOVE 1. 0. P)
(HLRZ 1. 2. 1.)
(MOVEI 2. '1.)
(CALL 2. 'GETCHAR)
(CAIE 1. 'G)
(JRST 0. G0081)
(MOVEI 1. '() )
(JRST 0. G0069)
G0081
(MOVE 1. -1. P)
(HLRZ 1. 2. 1.)
(PUSH P 1.)
(MOVEI 2. '1.)
(CALL 2. 'GETCHAR)
(PUSH P 1.)
(CAIE 1. 'G)
(JRST 0. G0090)
(MOVE 1. -1. P)
(CALL 1. 'EXPLODEN)
(HRRZ 1. 0. 1.)
(HRRZ 1. 0. 1.)
(JRST 0. G0089)
G0090
(MOVE 1. -1. P)
(CALL 1. 'EXPLODEN)
(HRRZ 1. 0. 1.)
G0089
(SUB P (% 0. 0. 1. 1.))
(PUSH FXP (% 0.))
(PUSH P 1.)
G0012
(SKIPE 0. 0. P)
(JRST 0. G0097)
(MOVE 7. 0. FXP)
(JSP T FXCONS)
(JRST 0. G0100)
G0097
(MOVEI 7. 10.)
(IMUL 7. 0. FXP)
(HLRZ 8. @ 0. P)
(MOVE 8. 0. 8.)
(SUBI 8. 48.)
(ADD 7. 8.)
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(MOVEM 7. 0. FXP)
(JRST 0. G0012)
G0100
(SUB FXP (% 0. 0. 1. 1.))
(SUB P (% 0. 0. 2. 2.))
(MOVE 7. 0. 1.)
(MOVEM 7. -1. FXP)
(MOVE 1. 0. P)
(HLRZ 1. 2. 1.)
(PUSH P 1.)
(MOVEI 2. '1.)
(CALL 2. 'GETCHAR)
(PUSH P 1.)
(CAIE 1. 'G)
(JRST 0. G0110)
(MOVE 1. -1. P)
(CALL 1. 'EXPLODEN)
(HRRZ 1. 0. 1.)
(HRRZ 1. 0. 1.)
(JRST 0. G0109)
G0110
(MOVE 1. -1. P)
(CALL 1. 'EXPLODEN)
(HRRZ 1. 0. 1.)
G0109
(SUB P (% 0. 0. 1. 1.))
(PUSH FXP (% 0.))
(PUSH P 1.)
G0020
(SKIPE 0. 0. P)
(JRST 0. G0117)
(MOVE 7. 0. FXP)
(JSP T FXCONS)
(JRST 0. G0120)
G0117
(MOVEI 7. 10.)
(IMUL 7. 0. FXP)
(HLRZ 8. @ 0. P)
(MOVE 8. 0. 8.)
(SUBI 8. 48.)
(ADD 7. 8.)
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(MOVEM 7. 0. FXP)
(JRST 0. G0020)
G0120
(SUB FXP (% 0. 0. 1. 1.))
(SUB P (% 0. 0. 2. 2.))
(MOVE 7. 0. 1.)
(MOVEI 5. -1. FXP)
(MOVEM 7. 0. FXP)
(MOVEI 4. 0. FXP)
(MOVE 7. 0. 5.)
(CAMG 7. 0. 4.)
(TDZA 1. 1.)
(MOVEI 1. 'T)
(JUMPE 1. G0086)
(MOVEI 1. 'T)
(JRST 0. G0069)
G0086
(MOVE 1. 0. P)
(HLRZ 1. 2. 1.)
(PUSH P 1.)
(MOVEI 2. '1.)
(CALL 2. 'GETCHAR)
(PUSH P 1.)
(CAIE 1. 'G)
(JRST 0. G0132)
(MOVE 1. -1. P)
(CALL 1. 'EXPLODEN)
(HRRZ 1. 0. 1.)
(HRRZ 1. 0. 1.)
(JRST 0. G0131)
G0132
(MOVE 1. -1. P)
(CALL 1. 'EXPLODEN)
(HRRZ 1. 0. 1.)
G0131
(SUB P (% 0. 0. 1. 1.))
(PUSH FXP (% 0.))
(PUSH P 1.)
G0032
(SKIPE 0. 0. P)
(JRST 0. G0139)
(MOVE 7. 0. FXP)
(JSP T FXCONS)
(JRST 0. G0142)
G0139
(MOVEI 7. 10.)
(IMUL 7. 0. FXP)
(HLRZ 8. @ 0. P)
(MOVE 8. 0. 8.)
(SUBI 8. 48.)
(ADD 7. 8.)
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(MOVEM 7. 0. FXP)
(JRST 0. G0032)
G0142
(SUB FXP (% 0. 0. 1. 1.))
(SUB P (% 0. 0. 2. 2.))
(MOVE 7. 0. 1.)
(MOVEM 7. -3. FXP)
(MOVE 1. -1. P)
(HLRZ 1. 2. 1.)
(PUSH P 1.)
(MOVEI 2. '1.)
(CALL 2. 'GETCHAR)
(PUSH P 1.)
(CAIE 1. 'G)
(JRST 0. G0152)
(MOVE 1. -1. P)
(CALL 1. 'EXPLODEN)
(HRRZ 1. 0. 1.)
(HRRZ 1. 0. 1.)
(JRST 0. G0151)
G0152
(MOVE 1. -1. P)
(CALL 1. 'EXPLODEN)
(HRRZ 1. 0. 1.)
G0151
(SUB P (% 0. 0. 1. 1.))
(PUSH FXP (% 0.))
(PUSH P 1.)
G0040
(SKIPE 0. 0. P)
(JRST 0. G0159)
(MOVE 7. 0. FXP)
(JSP T FXCONS)
(JRST 0. G0162)
G0159
(MOVEI 7. 10.)
(IMUL 7. 0. FXP)
(HLRZ 8. @ 0. P)
(MOVE 8. 0. 8.)
(SUBI 8. 48.)
(ADD 7. 8.)
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(MOVEM 7. 0. FXP)
(JRST 0. G0040)
G0162
(SUB FXP (% 0. 0. 1. 1.))
(SUB P (% 0. 0. 2. 2.))
(MOVE 7. 0. 1.)
(MOVEI 5. -3. FXP)
(MOVEM 7. -2. FXP)
(MOVEI 4. -2. FXP)
(MOVE 7. 0. 5.)
(CAMG 7. 0. 4.)
(TDZA 1. 1.)
(MOVEI 1. 'T)
(JUMPE 1. G0128)
(MOVEI 1. '() )
(JRST 0. G0069)
G0128
(MOVE 1. -1. P)
(HLRZ 1. 1. 1.)
(MOVEI 2. '1.)
(CALL 2. 'GETCHAR)
(CAIE 1. 'G)
(JRST 0. G0170)
(MOVE 1. 0. P)
(HLRZ 1. 1. 1.)
(MOVEI 2. '1.)
(CALL 2. 'GETCHAR)
(CAIN 1. 'G)
(JRST 0. G0170)
(MOVEI 1. 'T)
(JRST 0. G0069)
G0170
(MOVE 1. -1. P)
(HLRZ 1. 1. 1.)
(MOVEI 2. '1.)
(CALL 2. 'GETCHAR)
(CAIN 1. 'G)
(JRST 0. G0175)
(MOVE 1. 0. P)
(HLRZ 1. 1. 1.)
(MOVEI 2. '1.)
(CALL 2. 'GETCHAR)
(CAIE 1. 'G)
(JRST 0. G0175)
(MOVEI 1. '() )
(JRST 0. G0069)
G0175
(MOVE 1. -1. P)
(HLRZ 1. 1. 1.)
(PUSH P 1.)
(MOVEI 2. '1.)
(CALL 2. 'GETCHAR)
(PUSH P 1.)
(CAIE 1. 'G)
(JRST 0. G0184)
(MOVE 1. -1. P)
(CALL 1. 'EXPLODEN)
(HRRZ 1. 0. 1.)
(HRRZ 1. 0. 1.)
(JRST 0. G0183)
G0184
(MOVE 1. -1. P)
(CALL 1. 'EXPLODEN)
(HRRZ 1. 0. 1.)
G0183
(SUB P (% 0. 0. 1. 1.))
(PUSH FXP (% 0.))
(PUSH P 1.)
G0059
(SKIPE 0. 0. P)
(JRST 0. G0191)
(MOVE 7. 0. FXP)
(JSP T FXCONS)
(JRST 0. G0194)
G0191
(MOVEI 7. 10.)
(IMUL 7. 0. FXP)
(HLRZ 8. @ 0. P)
(MOVE 8. 0. 8.)
(SUBI 8. 48.)
(ADD 7. 8.)
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(MOVEM 7. 0. FXP)
(JRST 0. G0059)
G0194
(SUB FXP (% 0. 0. 1. 1.))
(SUB P (% 0. 0. 2. 2.))
(MOVE 7. 0. 1.)
(MOVEM 7. -5. FXP)
(MOVE 1. 0. P)
(HLRZ 1. 1. 1.)
(PUSH P 1.)
(MOVEI 2. '1.)
(CALL 2. 'GETCHAR)
(PUSH P 1.)
(CAIE 1. 'G)
(JRST 0. G0204)
(MOVE 1. -1. P)
(CALL 1. 'EXPLODEN)
(HRRZ 1. 0. 1.)
(HRRZ 1. 0. 1.)
(JRST 0. G0203)
G0204
(MOVE 1. -1. P)
(CALL 1. 'EXPLODEN)
(HRRZ 1. 0. 1.)
G0203
(SUB P (% 0. 0. 1. 1.))
(PUSH FXP (% 0.))
(PUSH P 1.)
G0067
(SKIPE 0. 0. P)
(JRST 0. G0211)
(MOVE 7. 0. FXP)
(JSP T FXCONS)
(JRST 0. G0214)
G0211
(MOVEI 7. 10.)
(IMUL 7. 0. FXP)
(HLRZ 8. @ 0. P)
(MOVE 8. 0. 8.)
(SUBI 8. 48.)
(ADD 7. 8.)
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(MOVEM 7. 0. FXP)
(JRST 0. G0067)
G0214
(SUB FXP (% 0. 0. 1. 1.))
(SUB P (% 0. 0. 2. 2.))
(MOVE 7. 0. 1.)
(MOVEI 5. -5. FXP)
(MOVEM 7. -4. FXP)
(MOVEI 4. -4. FXP)
(MOVE 7. 0. 5.)
(CAMG 7. 0. 4.)
(TDZA 1. 1.)
(MOVEI 1. 'T)
(JUMPN 1. G0180)
(SKIPA)
G0180
(MOVEI 1. 'T)
G0069
(SUB P (% 0. 0. 2. 2.))
(SUB FXP (% 0. 0. 6. 6.))
(POPJ P)
()
(LAP PROPAGATE-MAX-LEVEL SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS PROPAGATE-MAX-LEVEL (() . 2.))
(PUSH FXP 0. 1.)
(PUSH P 2.)
(MOVEI 1. 0. 2.)
(HRRZ 1. 1. 1.)
(JUMPN 1. G0002)
(MOVE 7. 0. FXP)
(JSP T FXCONS)
(HRRM 1. 1. 2.)
(HRRZ 2. @ 0. P)
(HLRZ 2. 0. 2.)
(JUMPE 2. G0005)
(MOVEI 1. 0. FXP)
(CALL 2. 'PROPAGATE-MAX-LEVEL)
(JRST 0. G0001)
G0005
(MOVEI 1. '() )
(JRST 0. G0001)
G0002
(MOVEI 1. '() )
G0001
(SUB P (% 0. 0. 1. 1.))
(SUB FXP (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP CSR:CONSTRUCT-RG-DISPLAY-LINES:RP-NODE SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:CONSTRUCT-RG-DISPLAY-LINES:RP-NODE (() . 4.))
(PUSH P 1.)
(PUSH FXP 0. 2.)
(PUSH P 3.)
(PUSH P 4.)
(HRRZ 1. 0. 1.)
(HRRZ 1. 2. 1.)
(JUMPE 1. G0020)
(HLRZ 5. 0. 1.)
(HRRZ 1. 0. 1.)
(CAME 5. -2. P)
(JRST 0. (* -4.))
(EXCH 4. 3.)
(MOVE 3. -2. P)
(MOVEI 2. '() )
(MOVEI 1. 0. FXP)
(CALL 4. 'CSR:CONSTRUCT-RG-DISPLAY-LINE)
(MOVE 2. 0. P)
(CALL 2. 'TCONC)
(HRRZ 1. 0. 1.)
(HLRZ 1. 0. 1.)
(JSP T %NCONS)
(JRST 0. G0019)
G0020
(PUSH P (% 0. 0. '() ))
(MOVEI 1. 0. P)
(PUSH P 1.)
(MOVE 1. -4. P)
(HLRZ 1. 1. 1.)
(PUSH P 1.)
G0007
(SKIPN 0. 0. P)
(JRST 0. G0030)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(PUSH P 1.)
(HLRZ 1. 3. 1.)
(SKIPE 0. 1.)
(TDZA 1. 1.)
(MOVEI 1. 'T)
(SUB P (% 0. 0. 1. 1.))
(JUMPE 1. G0033)
(MOVE 1. 0. P)
(JSP T %NCONS)
G0033
(SUB P (% 0. 0. 1. 1.))
(HRRM 1. @ -1. P)
(MOVE 1. -1. P)
(CALL 1. 'LAST)
(HRRZ 2. @ 0. P)
(MOVEM 1. -1. P)
(MOVEM 2. 0. P)
(JRST 0. G0007)
G0030
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. -1. P)
(SUB P (% 0. 0. 2. 2.))
(PUSH P 1.)
(PUSH P (% 0. 0. '() ))
(MOVEI 1. 0. P)
(PUSH P 1.)
G0012
(SKIPN 0. -2. P)
(JRST 0. G0042)
(HLRZ 1. @ -2. P)
(PUSH P 1.)
(MOVE 4. -5. P)
(MOVE 3. -6. P)
(MOVEI 2. 0. 1.)
(MOVEI 1. 0. FXP)
(CALL 4. 'CSR:CONSTRUCT-RG-DISPLAY-LINE)
(PUSH P 1.)
(PUSH P (% 0. 0. '() ))
(MOVEI 1. 0. P)
(PUSH P 1.)
(MOVE 1. -3. P)
(HLRZ 1. 1. 1.)
(PUSH P 1.)
G0018
(SKIPN 0. 0. P)
(JRST 0. G0047)
(HLRZ 1. @ 0. P)
(MOVE 7. 0. FXP)
(ADDI 7. 1.)
(MOVE 4. -8. P)
(MOVE 3. -3. P)
(PUSH FXP 7.)
(MOVEI 2. 0. FXP)
(CALL 4. 'CSR:CONSTRUCT-RG-DISPLAY-LINES:RP-NODE)
(SUB FXP (% 0. 0. 1. 1.))
(HRRM 1. @ -1. P)
(MOVE 1. -1. P)
(CALL 1. 'LAST)
(HRRZ 2. @ 0. P)
(MOVEM 1. -1. P)
(MOVEM 2. 0. P)
(JRST 0. G0018)
G0047
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. -1. P)
(SUB P (% 0. 0. 2. 2.))
(HRRZ 2. @ 0. P)
(HRRM 1. 0. 2.)
(MOVE 2. -5. P)
(MOVE 1. 0. P)
(CALL 2. 'TCONC)
(POP P 1.)
(SUB P (% 0. 0. 1. 1.))
(JSP T %NCONS)
(HRRM 1. @ 0. P)
(HRRZ 2. @ -2. P)
(MOVEM 1. 0. P)
(MOVEM 2. -2. P)
(JRST 0. G0012)
G0042
(MOVE 1. -1. P)
(SUB P (% 0. 0. 3. 3.))
G0019
(SUB P (% 0. 0. 3. 3.))
(SUB FXP (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP CSR:CONSTRUCT-RG-FULL-DISPLAY-LINES:RP-NODE SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:CONSTRUCT-RG-FULL-DISPLAY-LINES:RP-NODE (() . 4.))
(PUSH P 1.)
(PUSH FXP 0. 2.)
(PUSH P 3.)
(PUSH P 4.)
(HRRZ 1. 0. 1.)
(HRRZ 1. 2. 1.)
(JUMPE 1. G0012)
(HLRZ 5. 0. 1.)
(HRRZ 1. 0. 1.)
(CAME 5. -2. P)
(JRST 0. (* -4.))
(EXCH 4. 3.)
(MOVE 3. -2. P)
(MOVEI 2. '() )
(MOVEI 1. 0. FXP)
(CALL 4. 'CSR:CONSTRUCT-RG-DISPLAY-LINE)
(MOVE 2. 0. P)
(CALL 2. 'TCONC)
(HRRZ 1. 0. 1.)
(HLRZ 1. 0. 1.)
(JSP T %NCONS)
(JRST 0. G0011)
G0012
(MOVE 1. -2. P)
(HLRZ 1. 1. 1.)
(JUMPN 1. G0019)
(EXCH 4. 3.)
(MOVE 3. -2. P)
(MOVEI 2. '() )
(MOVEI 1. 0. FXP)
(CALL 4. 'CSR:CONSTRUCT-RG-DISPLAY-LINE)
(MOVE 2. 0. P)
(CALL 2. 'TCONC)
(HRRZ 1. 0. 1.)
(HLRZ 1. 0. 1.)
(JSP T %NCONS)
(JRST 0. G0011)
G0019
(PUSH P (% 0. 0. '() ))
(MOVEI 1. 0. P)
(PUSH P 1.)
(MOVE 1. -4. P)
(HLRZ 1. 1. 1.)
(PUSH P 1.)
G0005
(SKIPN 0. 0. P)
(JRST 0. G0028)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(MOVE 4. -5. P)
(MOVE 3. -6. P)
(MOVEI 2. 0. 1.)
(MOVEI 1. 0. FXP)
(CALL 4. 'CSR:CONSTRUCT-RG-DISPLAY-LINE)
(PUSH P 1.)
(PUSH P (% 0. 0. '() ))
(MOVEI 1. 0. P)
(PUSH P 1.)
(MOVE 1. -3. P)
(HLRZ 1. 1. 1.)
(PUSH P 1.)
G0010
(SKIPN 0. 0. P)
(JRST 0. G0033)
(HLRZ 1. @ 0. P)
(MOVE 7. 0. FXP)
(ADDI 7. 1.)
(MOVE 4. -8. P)
(MOVE 3. -3. P)
(PUSH FXP 7.)
(MOVEI 2. 0. FXP)
(CALL 4. 'CSR:CONSTRUCT-RG-FULL-DISPLAY-LINES:RP-NODE)
(SUB FXP (% 0. 0. 1. 1.))
(HRRM 1. @ -1. P)
(MOVE 1. -1. P)
(CALL 1. 'LAST)
(HRRZ 2. @ 0. P)
(MOVEM 1. -1. P)
(MOVEM 2. 0. P)
(JRST 0. G0010)
G0033
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. -1. P)
(SUB P (% 0. 0. 2. 2.))
(HRRZ 2. @ 0. P)
(HRRM 1. 0. 2.)
(MOVE 2. -5. P)
(MOVE 1. 0. P)
(CALL 2. 'TCONC)
(POP P 1.)
(SUB P (% 0. 0. 1. 1.))
(JSP T %NCONS)
(HRRM 1. @ -1. P)
(HRRZ 2. @ 0. P)
(MOVEM 1. -1. P)
(MOVEM 2. 0. P)
(JRST 0. G0005)
G0028
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. -1. P)
(SUB P (% 0. 0. 2. 2.))
G0011
(SUB P (% 0. 0. 3. 3.))
(SUB FXP (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP CSR:CONSTRUCT-RG-DISPLAY-LINE SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:CONSTRUCT-RG-DISPLAY-LINE (() . 4.))
(PUSH FXP 0. 1.)
(PUSH P 2.)
(PUSH P 3.)
(PUSH P 4.)
(JUMPE 2. G0003)
(HLRZ 5. 0. 2.)
(CAIE 5. 'NEGATION-CONSID)
(JRST 0. G0003)
(MOVEI 1. 0. 3.)
(HLRZ 1. 2. 1.)
(JRST 0. G0002)
G0003
(MOVEI 1. 0. 3.)
G0002
(JSP T PDLNMK)
(PUSH P 1.)
(CALL 1. 'CSR:GET-OR-MAKE-RG-ITEM-NAME)
(PUSH P 1.)
(MOVE 1. -1. P)
(HRRZ 1. 1. 1.)
(HRRZ 1. 1. 1.)
(MOVEI 2. 'FORMULA)
(CALL 2. 'GET)
(PUSH P 1.)
(PUSH P (% 0. 0. '() ))
(SKIPN 0. -6. P)
(JRST 0. G0014)
(MOVE 1. -6. P)
(CALL 1. 'CSR:GET-OR-MAKE-RG-ITEM-NAME)
(MOVEM 1. 0. P)
(MOVE 1. -6. P)
(HRRZ 1. 1. 1.)
(PUSH P 1.)
(CAIE 1. 'QUANTIFIED-MODUS-PONENS)
(JRST 0. G0018)
(MOVEI 1. 'QMP)
(JRST 0. G0017)
G0018
(CAIE 1. 'STATISTICAL-SYLLOGISM)
(JRST 0. G0019)
(MOVEI 1. 'STS)
(JRST 0. G0017)
G0019
(CAIE 1. 'NEGATION)
(JRST 0. G0020)
(MOVEI 1. 'NEG)
(JRST 0. G0017)
G0020
(MOVEI 2. '|CSR:GET-CONSID-IDENT - unrecognized consid-rule|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0017
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0013)
G0014
(MOVEI 1. '() )
G0013
(PUSH P 1.)
(MOVEI T G0026)
(PUSH P T)
(MOVEI 5. 0. FXP)
(PUSH P 5.)
(PUSH P (% 0. 0. '() ))
(PUSH P -4. P)
(PUSH P 1.)
(PUSH P -8. P)
(PUSH P (% 0. 0. '() ))
(PUSH P -9. P)
(MOVE 1. -13. P)
(JSP T %PDLNC)
(PUSH P 1.)
(MOVNI T 8.)
(JCALL 14. 'HUNK)
G0026
(SUB P (% 0. 0. 8. 8.))
(SUB FXP (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP CSR:GET-OR-MAKE-RG-ITEM-NAME SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:GET-OR-MAKE-RG-ITEM-NAME (() . 1.))
(PUSH P 1.)
(MOVEI 2. '(TARGET KNOWLEDGE))
(HLRZ 1. 0. 1.)
(CALL 2. 'MEMQ)
(JUMPN 1. G0020)
(SKIPA)
G0020
(MOVEI 1. 'T)
(PUSH P 1.)
(JUMPE 1. G0025)
(MOVE 1. -1. P)
(HLRZ 1. 1. 1.)
(PUSH P 1.)
G0008
(SKIPN 0. 0. P)
(JRST 0. G0029)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(HLRZ 1. 3. 1.)
(SKIPE 0. 1.)
(TDZA 1. 1.)
(MOVEI 1. 'T)
(SUB P (% 0. 0. 1. 1.))
(JUMPE 1. G0030)
(MOVE 1. 0. P)
(JRST 0. G0035)
G0030
(HRRZ 2. @ 0. P)
(MOVEM 2. 0. P)
(JRST 0. G0008)
G0029
(MOVEI 1. '() )
G0035
(SUB P (% 0. 0. 1. 1.))
(JUMPE 1. G0026)
(SKIPA 1. (% 0. 0. 'NON-GOAL))
G0026
(MOVEI 1. 'GOAL)
(JRST 0. G0024)
G0025
(MOVE 1. -1. P)
(HLRZ 1. 3. 1.)
(JUMPE 1. G0039)
(SKIPA 1. (% 0. 0. 'GOAL))
G0039
(MOVEI 1. 'NON-GOAL)
G0024
(PUSH P 1.)
(SKIPN 0. -1. P)
(JRST 0. G0043)
(CAIE 1. 'NON-GOAL)
(JRST 0. G0044)
(MOVE 1. (SPECIAL RP-NODE-DISPLAY-DIRECTORY-PTR))
(JRST 0. G0042)
G0044
(CAIN 1. 'GOAL)
(SKIPA 1. (SPECIAL RP-NODE-GOAL-DISPLAY-DIRECTORY-PTR))
(MOVEI 1. '() )
(JRST 0. G0042)
G0043
(CAIE 1. 'NON-GOAL)
(JRST 0. G0046)
(MOVE 1. (SPECIAL CONSID-DISPLAY-DIRECTORY-PTR))
(JRST 0. G0042)
G0046
(CAIN 1. 'GOAL)
(SKIPA 1. (SPECIAL CONSID-GOAL-DISPLAY-DIRECTORY-PTR))
(MOVEI 1. '() )
G0042
(PUSH P 1.)
(HLRZ 1. 0. 1.)
(PUSH P 1.)
G0012
(SKIPN 0. 0. P)
(JRST 0. G0051)
(HLRZ 1. @ 0. P)
(HRRZ 1. 0. 1.)
(CAME 1. -4. P)
(JRST 0. G0052)
(HLRZ 1. @ 0. P)
(JRST 0. G0056)
G0052
(HRRZ 2. @ 0. P)
(MOVEM 2. 0. P)
(JRST 0. G0012)
G0051
(MOVEI 1. '() )
G0056
(SUB P (% 0. 0. 1. 1.))
(HLRZ 1. 0. 1.)
(JUMPN 1. G0048)
(MOVEI 5. '0.)
(MOVEM 5. (SPECIAL *:ARN))
(SKIPN 0. -2. P)
(JRST 0. G0062)
(MOVE 1. -1. P)
(CAIE 1. 'NON-GOAL)
(JRST 0. G0063)
(MOVE 7. @ (SPECIAL RPND-TALLY))
(ADDI 7. 1.)
(JSP T FXCONS)
(MOVEM 1. (SPECIAL RPND-TALLY))
(MOVEM 1. (SPECIAL *:AR2))
(MOVEI 4. '1.)
(MOVEM 4. (SPECIAL *:ARN))
(MOVEI 1. '(P))
(JRST 0. G0061)
G0063
(CAIE 1. 'GOAL)
(JRST 0. G0066)
(MOVE 7. @ (SPECIAL GOAL-RPND-TALLY))
(ADDI 7. 1.)
(JSP T FXCONS)
(MOVEM 1. (SPECIAL GOAL-RPND-TALLY))
(MOVEM 1. (SPECIAL *:AR2))
(MOVEI 4. '1.)
(MOVEM 4. (SPECIAL *:ARN))
(MOVEI 1. '(G P))
(JRST 0. G0061)
G0066
(MOVEI 1. '() )
(JRST 0. G0061)
G0062
(MOVE 1. -1. P)
(CAIE 1. 'NON-GOAL)
(JRST 0. G0070)
(MOVE 7. @ (SPECIAL CNSD-TALLY))
(ADDI 7. 1.)
(JSP T FXCONS)
(MOVEM 1. (SPECIAL CNSD-TALLY))
(MOVEM 1. (SPECIAL *:AR2))
(MOVEI 4. '1.)
(MOVEM 4. (SPECIAL *:ARN))
(MOVEI 1. '(C))
(JRST 0. G0061)
G0070
(CAIE 1. 'GOAL)
(JRST 0. G0073)
(MOVE 7. @ (SPECIAL GOAL-CNSD-TALLY))
(ADDI 7. 1.)
(JSP T FXCONS)
(MOVEM 1. (SPECIAL GOAL-CNSD-TALLY))
(MOVEM 1. (SPECIAL *:AR2))
(MOVEI 4. '1.)
(MOVEM 4. (SPECIAL *:ARN))
(MOVEI 1. '(G C))
(JRST 0. G0061)
G0073
(MOVEI 1. '() )
G0061
(PUSH P 1.)
(MOVE 7. @ (SPECIAL *:ARN))
(CAIL 7. 1.)
(JRST 0. G0077)
(MOVEI 1. '1.)
(CALL 1. 'SI:CHECK-MULTIPLICITIES)
G0077
(MOVEI 5. '0.)
(MOVEM 5. (SPECIAL *:ARN))
(PUSH FXP @ (SPECIAL *:AR2))
(MOVEI 1. 0. FXP)
(CALL 1. 'EXPLODE)
(MOVEI 2. 0. 1.)
(POP P 1.)
(CALL 2. '*APPEND)
(CALL 1. 'IMPLODE)
(SUB FXP (% 0. 0. 1. 1.))
(MOVE 2. -3. P)
(PUSH P 1.)
(JSP T %C2NS)
(MOVE 2. -1. P)
(CALL 2. 'TCONC)
(POP P 1.)
G0048
(SUB P (% 0. 0. 4. 4.))
(POPJ P)
()
(LAP CSR:DISPLAY-RG-SUMMARY SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:DISPLAY-RG-SUMMARY (() . 2.))
(COMMENT ARGLIST = (R-GRAPH TYPE &AUX NORM-DISPLAY-LISTVAR))
(PUSH P 1.)
(PUSH P 2.)
(CAIE 2. 'COMPLETED)
(JRST 0. G0002)
(MOVEI 1. 'RG-NORM-DISPLAY-LIST)
(JRST 0. G0001)
G0002
(CAIE 2. 'GOAL)
(JRST 0. G0003)
(MOVEI 1. 'RG-NORM-GOAL-DISPLAY-LIST)
(JRST 0. G0001)
G0003
(CAIE 2. 'FULL)
(TDZA 1. 1.)
(MOVEI 1. 'RG-NORM-FULL-DISPLAY-LIST)
G0001
(PUSH P 1.)
(HLRZ 3. 0. 1.)
(HRRZ 3. 0. 3.)
(HRRZ 3. 0. 3.)
(JUMPN 3. G0005)
(MOVE 1. -2. P)
(CALL 2. 'CSR:SUMMARIZE-R-GRAPH)
G0005
(HLRZ 1. @ 0. P)
(HRRZ 1. 0. 1.)
(HRRZ 1. 0. 1.)
(JUMPN 1. G0007)
(MOVE 1. -1. P)
(CAIE 1. 'COMPLETED)
(JRST 0. G0010)
(STRT 0. (% SIXBIT |T↑(↑%↑2↑% ↑!↑2↑% ↑.↑// ↑#↑//↑-↑0↑,↑%↑4↑%↑$ (↑).↑%., ↑.↑//↑.-↑'↑//↑!↑,) ↑#↑//↑.↑3↑)↑$↑%↑2↑!↑4↑)↑//↑.↑3 ↑4↑// ↑$↑)↑3↑0↑,↑!↑9.!|))
(JRST 0. G0009)
G0010
(CAIE 1. 'GOAL)
(JRST 0. G0011)
(STRT 0. (% SIXBIT |T↑(↑%↑2↑% ↑!↑2↑% ↑.↑// ↑'↑//↑!↑,-↑#↑//↑.↑3↑)↑$↑%↑2↑!↑4↑)↑//↑.↑3 ↑4↑// ↑$↑)↑3↑0↑,↑!↑9.!|))
(JRST 0. G0009)
G0011
(CAIE 1. 'FULL)
(JRST 0. G0009)
(STRT 0. (% SIXBIT |T↑(↑%↑2↑% ↑!↑2↑% ↑.↑// ↑#↑//↑.↑3↑)↑$↑%↑2↑!↑4↑)↑//↑.↑3 ↑4↑// ↑$↑)↑3↑0↑,↑!↑9.!|))
G0009
G0007
(MOVE 2. -1. P)
(HLRZ 1. @ 0. P)
(HRRZ 1. 0. 1.)
(HRRZ 1. 0. 1.)
(CALL 2. 'CSR:DISPLAY-RG-D-LIST)
(SUB P (% 0. 0. 3. 3.))
(POPJ P)
()
(LAP CSR:DISPLAY-RG-D-LIST SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CSR:DISPLAY-RG-D-LIST (() . 2.))
(PUSH FXP (% 0.))
(COMMENT ARGLIST = (DISPLAY-LIST TYPE &AUX (CURRENTPOS 1.) (TABVAL 0.) (NEXT-TABVAL 1.) (MAX-LEVEL (CASEQ TYPE (COMPLETED RG-DISPLAY-MAX-LEVEL) (GOAL RG-GOAL-DISPLAY-MAX-LEVEL) (FULL RG-FULL-DISPLAY-MAX-LEVEL))) (TAB-INDEX (LIST (LIST* (1- MAX-LEVEL) '1.) (LIST* MAX-LEVEL '1.)))))
(PUSH P 1.)
(PUSH P 2.)
(MOVEI 5. '1.)
(PUSH P (% 0. 0. '1.))
(JSP T SPECBIND)
(0. 5. (SPECIAL CURRENTPOS))
(CAIE 2. 'COMPLETED)
(JRST 0. G0008)
(MOVE 1. (SPECIAL RG-DISPLAY-MAX-LEVEL))
(JRST 0. G0007)
G0008
(CAIE 2. 'GOAL)
(JRST 0. G0009)
(MOVE 1. (SPECIAL RG-GOAL-DISPLAY-MAX-LEVEL))
(JRST 0. G0007)
G0009
(CAIE 2. 'FULL)
(JRST 0. G0010)
(MOVE 1. (SPECIAL RG-FULL-DISPLAY-MAX-LEVEL))
(JRST 0. G0007)
G0010
(MOVEI 1. '() )
G0007
(MOVE 7. 0. 1.)
(SUBI 7. 1.)
(MOVEI 2. '1.)
(PUSH P 1.)
(JSP T FXCONS)
(JSP T %CONS)
(MOVEI 2. '1.)
(PUSH P 1.)
(MOVE 1. -1. P)
(JSP T %CONS)
(JSP T %NCONS)
(POP P 2.)
(JSP T %XCONS)
(PUSH FXP (% 0.))
(PUSH P 1.)
(MOVE 1. -4. P)
(JSP T PDLNMK)
(PUSH P 1.)
G0003
(SKIPN 0. 0. P)
(JRST 0. G0020)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(HLRZ 1. 1. 1.)
(HLRZ 7. @ 0. P)
(MOVE 7. 0. 7.)
(MOVE 2. -2. P)
(PUSH P 1.)
(PUSH FXP 7.)
(MOVEI 1. 0. FXP)
(CALL 2. 'ASSQ)
(HRRZ 2. 0. 1.)
(MOVE 7. 0. 2.)
(MOVEM 7. -1. FXP)
(MOVEI 1. -1. FXP)
(CALL 1. '*PRINC)
(MOVEI 1. 0. FXP)
(CALL 1. '*PRINC)
(MOVE 1. -3. P)
(CALL 1. '*PRINC)
(SKIPN 0. 0. P)
(JRST 0. G0027)
(MOVEI 1. -1. FXP)
(CALL 1. 'TAB)
(MOVE 1. 0. P)
(CALL 1. '*PRINC)
(MOVE 1. (SPECIAL :))
(CALL 1. '*PRINC)
(MOVE 1. -1. P)
(HRRZ 1. 2. 1.)
(CALL 1. '*PRINC)
(MOVE 1. (SPECIAL ->))
(CALL 1. '*PRINC)
(MOVE 1. 0. P)
(NCALL 1. 'FLATC)
(MOVE 8. -1. FXP)
(ADDI 8. 6.)
(ADD 7. 8.)
(MOVEM 7. -2. FXP)
(MOVEI 1. -2. FXP)
(MOVE 7. 0. FXP)
(SUBI 7. 1.)
(PUSH FXP 7.)
(MOVEI 3. 0. FXP)
(MOVEI 2. 0. 1.)
(MOVEM 1. -5. P)
(MOVE 1. -3. P)
(CALL 3. 'A-PUTPROP)
(SUB FXP (% 0. 0. 1. 1.))
(JRST 0. G0026)
G0027
(MOVE 7. 0. FXP)
(CAME 7. @ -4. P)
(JRST 0. G0034)
(STRT 0. (% SIXBIT TAB2!))
(MOVE 1. (SPECIAL CURRENTPOS))
(CALL 1. '*PRINC)
(MOVEI 1. -1. FXP)
(CALL 1. '*PRINC)
(MOVE 1. -3. P)
(CALL 1. '*PRINC)
(MOVEI 1. -1. FXP)
(CALL 1. 'TAB)
(JRST 0. G0026)
G0034
(SUBI 7. 1.)
(MOVE 2. -3. P)
(PUSH FXP 7.)
(MOVEI 1. 0. FXP)
(CALL 2. 'ASSQ)
(HRRZ 1. 0. 1.)
(CALL 1. 'TAB)
(SUB FXP (% 0. 0. 1. 1.))
G0026
(MOVE 1. -1. P)
(HLRZ 1. 2. 1.)
(CALL 1. '*PRINC)
(MOVE 1. -1. P)
(HRRZ 1. 3. 1.)
(CALL 1. '*PRINC)
(MOVE 1. -1. P)
(HLRZ 1. 3. 1.)
(CALL 1. '*PRINC)
(CALL 0. '*TERPRI)
(MOVEI 5. '1.)
(MOVEM 5. (SPECIAL CURRENTPOS))
(SUB FXP (% 0. 0. 1. 1.))
(SUB P (% 0. 0. 2. 2.))
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0003)
G0020
(SUB P (% 0. 0. 4. 4.))
(SUB FXP (% 0. 0. 1. 1.))
(PUSHJ P UNBIND)
(MOVEI 1. 'T)
(SUB P (% 0. 0. 2. 2.))
(SUB FXP (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP XPTR LSUBR)
(EVAL (SETQ IBASE 10.))
(JSP D *LCALL)
(COMMENT ARGLIST = (&OPTIONAL (TERMINAL-TYPE 'DM) (TASK-RECORD TASK-REC)))
(PUSH P 1.)
(JSP T SPECBIND)
(0. 0. (SPECIAL TASK-RECORD))
(0. 0. (SPECIAL TERMINAL-TYPE))
(MOVE 7. 0. 1.)
(JUMPLE 7. G0002)
(MOVE 5. ARGLOC)
(HRRZ 1. 1. 5.)
(JSP T PDLNMK)
(JRST 0. G0001)
G0002
(MOVEI 1. 'DM)
G0001
(MOVEM 1. (SPECIAL TERMINAL-TYPE))
(CAIG 7. 1.)
(JRST 0. G0008)
(MOVE 5. ARGLOC)
(HRRZ 1. 2. 5.)
(JSP T PDLNMK)
(JRST 0. G0007)
G0008
(MOVE 1. (SPECIAL TASK-REC))
G0007
(MOVEM 1. (SPECIAL TASK-RECORD))
(MOVEI T G0013)
(PUSH P T)
(PUSH P (SPECIAL TERMINAL-TYPE))
(PUSH P 1.)
(MOVNI T 2.)
(JCALL 14. 'EXPLORE-TASK-RECORD)
G0013
(SUB P (% 0. 0. 1. 1.))
(JRST 0. UNBIND)
()
(ARGS 'XPTR '(0 . 2))
(LAP EXPLORE-TASK-RECORD LSUBR)
(EVAL (SETQ IBASE 10.))
(JSP D *LCALL)
(COMMENT ARGLIST = (&OPTIONAL (TERMINAL-TYPE 'DM) (TASK-RECORD TASK-REC)))
(PUSH P 1.)
(JSP T SPECBIND)
(0. 0. (SPECIAL TASK-RECORD))
(0. 0. (SPECIAL TERMINAL-TYPE))
(MOVE 7. 0. 1.)
(JUMPLE 7. G0004)
(MOVE 5. ARGLOC)
(HRRZ 1. 1. 5.)
(JSP T PDLNMK)
(JRST 0. G0003)
G0004
(MOVEI 1. 'DM)
G0003
(MOVEM 1. (SPECIAL TERMINAL-TYPE))
(CAIG 7. 1.)
(JRST 0. G0010)
(MOVE 5. ARGLOC)
(HRRZ 1. 2. 5.)
(JSP T PDLNMK)
(JRST 0. G0009)
G0010
(MOVE 1. (SPECIAL TASK-REC))
G0009
(MOVEM 1. (SPECIAL TASK-RECORD))
(JSP T SPECBIND)
(0. 0. (SPECIAL CURRENT-TASK))
(0. 0. (SPECIAL CURRENT-TASK-INDEX))
(0. 0. (SPECIAL CURRENT-TASK-PATH))
(0. 0. (SPECIAL PROMPT-STRING))
(MOVEI 5. 'T)
(MOVEM 5. (SPECIAL *NOPOINT))
(MOVEI 4. 'TR**)
(MOVEM 4. (SPECIAL PROMPT-STRING))
(HLRZ 2. 0. 1.)
(MOVEM 2. (SPECIAL CURRENT-TASK))
(MOVEI 3. '1.)
(MOVEM 3. (SPECIAL CURRENT-TASK-INDEX))
(EXCH 1. 3.)
(JSP T %NCONS)
(MOVEM 1. (SPECIAL CURRENT-TASK-PATH))
(CALL 0. '*TERPRI)
(CALL 0. '*TERPRI)
(CALL 0. '*TERPRI)
(STRT 0. (% SIXBIT |W↑%↑,↑#↑//↑-↑% ↑4↑// EXPLORE-TASK-RECORD.!|))
(CALL 0. '*TERPRI)
(STRT 0. (% SIXBIT |Y↑//↑5 ↑!↑2↑% ↑.↑//↑7 ↑%↑8↑!↑-↑)↑.↑)↑.↑' ↑! ↑0↑2↑%↑6↑)↑//↑5↑3↑,↑9 ↑%↑8↑%↑#↑5↑4↑%↑$ ↑!↑'↑%↑.↑$↑! ↑//↑& ↑2↑%↑!↑3↑//↑.↑)↑.↑' ↑4↑!↑3↑+↑3;!|))
(CALL 0. '*TERPRI)
(STRT 0. (% SIXBIT |↑0↑,↑%↑!↑3↑% ↑4↑9↑0↑% ↑#↑//↑-↑-↑!↑.↑$↑3 ↑4↑// ↑4↑(↑% ↑0↑2↑//↑-↑0↑4 TR**.!|))
(PUSH P (% 0. 0. '() ))
G0001
(CALL 0. '*TERPRI)
(MOVE 1. (SPECIAL PROMPT-STRING))
(CALL 1. '*PRINC)
(CALL 0. '*READ)
(MOVEM 1. 0. P)
(JUMPE 1. G0020)
(LSH 1. -9.)
(MOVE 7. ST 1.)
(TLNN 7. 4096.)
(JRST 0. G0019)
G0020
(MOVE 1. 0. P)
(JRST 0. G0018)
G0019
(SKIPN 1. 0. P)
(MOVEI 1. 'T)
(LSH 1. -9.)
(HRRZ 1. ST 1.)
(CAIE 1. 'LIST)
(JRST 0. G0021)
(HLRZ 1. @ 0. P)
(JUMPE 1. G0024)
(LSH 1. -9.)
(MOVE 7. ST 1.)
(TLNN 7. 4096.)
(JRST 0. G0021)
G0024
(HLRZ 1. @ 0. P)
(JRST 0. G0018)
G0021
(CALL 0. '*TERPRI)
(STRT 0. (% SIXBIT | - ↑)↑-↑0↑2↑//↑0↑%↑2 ↑#↑//↑-↑-↑!↑.↑$ -- ↑0↑,↑%↑!↑3↑% ↑4↑2↑9 ↑!↑'↑!↑)↑. ...!|))
(JRST 0. G0001)
G0018
(PUSH P 1.)
(CAIE 1. 'DT)
(JRST 0. G0029)
(MOVE 1. (SPECIAL CURRENT-TASK))
(CALL 1. 'DISPLAY-TASK)
(JRST 0. G0028)
G0029
(CAIN 1. 'T)
(JRST 0. G0031)
(CAIE 1. 'MT)
(JRST 0. G0030)
G0031
(MOVE 7. -1. P)
(LSH 7. -9.)
(SKIPL 0. ST 7.)
(JRST 0. G0033)
(HRRZ 2. @ -1. P)
(JUMPN 2. G0032)
G0033
(MOVEI 2. '1.)
(MOVEI 1. 'NUM)
(CALL 2. 'MOVE-TO-TASK)
(JRST 0. G0028)
G0032
(HRRZ 2. @ -1. P)
(HLRZ 2. 0. 2.)
(MOVEI 1. 'NUM)
(CALL 2. 'MOVE-TO-TASK)
(JRST 0. G0028)
G0030
(CAIN 1. 'N)
(JRST 0. G0038)
(CAIN 1. 'F)
(JRST 0. G0038)
(CAIN 1. 'MN)
(JRST 0. G0038)
(CAIE 1. 'MF)
(JRST 0. G0037)
G0038
(MOVE 7. -1. P)
(LSH 7. -9.)
(SKIPL 0. ST 7.)
(JRST 0. G0040)
(HRRZ 2. @ -1. P)
(JUMPN 2. G0039)
G0040
(MOVEI 2. '1.)
(MOVEI 1. 'NEXT)
(CALL 2. 'MOVE-TO-TASK)
(JRST 0. G0028)
G0039
(HRRZ 2. @ -1. P)
(HLRZ 2. 0. 2.)
(MOVEI 1. 'NEXT)
(CALL 2. 'MOVE-TO-TASK)
(JRST 0. G0028)
G0037
(CAIN 1. 'B)
(JRST 0. G0045)
(CAIE 1. 'MB)
(JRST 0. G0044)
G0045
(MOVE 7. -1. P)
(LSH 7. -9.)
(SKIPL 0. ST 7.)
(JRST 0. G0047)
(HRRZ 2. @ -1. P)
(JUMPN 2. G0046)
G0047
(MOVEI 2. '1.)
(MOVEI 1. 'BACK)
(CALL 2. 'MOVE-TO-TASK)
(JRST 0. G0028)
G0046
(HRRZ 2. @ -1. P)
(HLRZ 2. 0. 2.)
(MOVEI 1. 'BACK)
(CALL 2. 'MOVE-TO-TASK)
(JRST 0. G0028)
G0044
(CAIN 1. 'P)
(JRST 0. G0052)
(CAIE 1. 'MP)
(JRST 0. G0051)
G0052
(MOVE 7. -1. P)
(LSH 7. -9.)
(SKIPL 0. ST 7.)
(JRST 0. G0054)
(HRRZ 2. @ -1. P)
(JUMPN 2. G0053)
G0054
(MOVEI 2. '1.)
(MOVEI 1. 'PREV)
(CALL 2. 'MOVE-TO-TASK)
(JRST 0. G0028)
G0053
(HRRZ 2. @ -1. P)
(HLRZ 2. 0. 2.)
(MOVEI 1. 'PREV)
(CALL 2. 'MOVE-TO-TASK)
(JRST 0. G0028)
G0051
(CAIE 1. 'CT)
(JRST 0. G0058)
(CALL 0. 'COUNT-TASKS)
(MOVEI 1. 'SUCCESS)
(CALL 1. 'CLASSIFY-TASKS)
(JRST 0. G0028)
G0058
(CAIE 1. 'LS)
(JRST 0. G0059)
(MOVEI 1. 'SUCCESS)
(CALL 1. 'CLASSIFY-TASKS)
(JRST 0. G0028)
G0059
(CAIE 1. 'LF)
(JRST 0. G0060)
(MOVEI 1. 'FAILURE)
(CALL 1. 'CLASSIFY-TASKS)
(JRST 0. G0028)
G0060
(CAIE 1. 'LSF)
(JRST 0. G0061)
(MOVEI 1. 'ALL)
(CALL 1. 'CLASSIFY-TASKS)
(JRST 0. G0028)
G0061
(CAIE 1. 'DI)
(JRST 0. G0062)
(STRT 0. (% SIXBIT |C↑5↑2↑2↑%↑.↑4-↑4↑!↑3↑+-↑)↑.↑$↑%↑8: !|))
(MOVE 1. (SPECIAL CURRENT-TASK-INDEX))
(CALL 1. '*PRINC)
(JRST 0. G0028)
G0062
(CAIE 1. 'DP)
(JRST 0. G0063)
(STRT 0. (% SIXBIT |C↑5↑2↑2↑%↑.↑4-↑4↑!↑3↑+-↑0↑!↑4↑(: !|))
(MOVE 1. (SPECIAL CURRENT-TASK-PATH))
(CALL 1. '*PRINC)
(JRST 0. G0028)
G0063
(CAIE 1. 'KP)
(JRST 0. G0064)
(MOVE 7. -1. P)
(LSH 7. -9.)
(SKIPL 0. ST 7.)
(JRST 0. G0066)
(HRRZ 2. @ -1. P)
(JUMPN 2. G0065)
G0066
(MOVEI 1. '1.)
(CALL 1. 'KILL-TASK-PATH)
(JRST 0. G0028)
G0065
(HRRZ 1. @ -1. P)
(HLRZ 1. 0. 1.)
(CALL 1. 'KILL-TASK-PATH)
(JRST 0. G0028)
G0064
(CAIN 1. 'Q)
(JRST 0. G0071)
(CAIN 1. 'QUIT)
(JRST 0. G0071)
(CAIE 1. 'EXIT)
(JRST 0. G0070)
G0071
(SETZM 0. (SPECIAL *NOPOINT))
(MOVEI 1. '"done")
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0072)
G0070
(CAIN 1. '?)
(JRST 0. G0074)
(CAIE 1. 'H)
(JRST 0. G0073)
G0074
(CALL 0. 'XPTR-SHORT-HELP)
(JRST 0. G0028)
G0073
(CAIN 1. '??)
(JRST 0. G0076)
(CAIN 1. 'HH)
(JRST 0. G0076)
(CAIE 1. 'HELP)
(JRST 0. G0075)
G0076
(MOVE 7. -1. P)
(LSH 7. -9.)
(SKIPL 0. ST 7.)
(TDZA 1. 1.)
(HRRZ 1. @ -1. P)
(CALL 1. 'XPTR-HELP)
(JRST 0. G0028)
G0075
(CALL 0. '*TERPRI)
(STRT 0. (% SIXBIT | - ↑5↑.↑2↑%↑#↑//↑'↑.↑)↑:↑%↑$ ↑#↑//↑-↑-↑!↑.↑$ -- ↑0↑,↑%↑!↑3↑% ↑4↑2↑9 ↑!↑'↑!↑)↑. ...!|))
G0028
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0001)
G0072
(PUSHJ P UNBIND)
(SUB P (% 0. 0. 2. 2.))
(JRST 0. UNBIND)
()
(ARGS 'EXPLORE-TASK-RECORD '(0 . 2))
(LAP KILL-TASK-PATH SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS KILL-TASK-PATH (() . 1.))
(PUSH P 1.)
(LSH 1. -9.)
(MOVE 7. ST 1.)
(TLNN 7. 40960.)
(JRST 0. G0002)
(MOVE 2. (SPECIAL CURRENT-TASK-PATH))
(MOVE 1. 0. P)
(CALL 2. 'NTHCDR)
(JRST 0. G0001)
G0002
(MOVEI 1. '() )
G0001
(MOVEM 1. (SPECIAL CURRENT-TASK-PATH))
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP MOVE-TO-TASK SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS MOVE-TO-TASK (() . 2.))
(PUSH FXP (% 0.))
(PUSH P 1.)
(PUSH P 2.)
(CAIE 1. 'NUM)
(JRST 0. G0003)
(CAIE 2. '*)
(JRST 0. G0004)
(MOVE 1. (SPECIAL TASK-RECORD))
(NCALL 1. 'LENGTH)
(MOVEM 7. 0. FXP)
(MOVEI 1. 0. FXP)
(MOVEM 1. 0. P)
G0004
(MOVE 1. 0. P)
(JSP T PDLNMK)
(MOVEM 1. (SPECIAL CURRENT-TASK-INDEX))
(MOVE 7. 0. 1.)
(SUBI 7. 1.)
(MOVE 2. (SPECIAL TASK-RECORD))
(PUSH FXP 7.)
(MOVEI 1. 0. FXP)
(CALL 2. 'NTH)
(MOVEM 1. (SPECIAL CURRENT-TASK))
(MOVE 2. (SPECIAL CURRENT-TASK-PATH))
(MOVE 1. (SPECIAL CURRENT-TASK-INDEX))
(JSP T %CONS)
(MOVEM 1. (SPECIAL CURRENT-TASK-PATH))
(MOVE 1. (SPECIAL CURRENT-TASK))
(CALL 1. 'DISPLAY-TASK)
(SUB FXP (% 0. 0. 1. 1.))
(JRST 0. G0002)
G0003
(CAIE 1. 'NEXT)
(JRST 0. G0012)
(MOVE 7. @ (SPECIAL CURRENT-TASK-INDEX))
(ADD 7. 0. 2.)
(JSP T FXCONS)
(MOVEM 1. (SPECIAL CURRENT-TASK-INDEX))
(MOVE 7. 0. 1.)
(SUBI 7. 1.)
(MOVE 2. (SPECIAL TASK-RECORD))
(PUSH FXP 7.)
(MOVEI 1. 0. FXP)
(CALL 2. 'NTH)
(MOVEM 1. (SPECIAL CURRENT-TASK))
(MOVE 2. (SPECIAL CURRENT-TASK-PATH))
(MOVE 1. (SPECIAL CURRENT-TASK-INDEX))
(JSP T %CONS)
(MOVEM 1. (SPECIAL CURRENT-TASK-PATH))
(MOVE 1. (SPECIAL CURRENT-TASK))
(CALL 1. 'DISPLAY-TASK)
(SUB FXP (% 0. 0. 1. 1.))
(JRST 0. G0002)
G0012
(CAIE 1. 'BACK)
(JRST 0. G0019)
(MOVE 7. @ (SPECIAL CURRENT-TASK-INDEX))
(SUB 7. 0. 2.)
(JSP T FXCONS)
(MOVEM 1. (SPECIAL CURRENT-TASK-INDEX))
(MOVE 7. 0. 1.)
(SUBI 7. 1.)
(MOVE 2. (SPECIAL TASK-RECORD))
(PUSH FXP 7.)
(MOVEI 1. 0. FXP)
(CALL 2. 'NTH)
(MOVEM 1. (SPECIAL CURRENT-TASK))
(MOVE 2. (SPECIAL CURRENT-TASK-PATH))
(MOVE 1. (SPECIAL CURRENT-TASK-INDEX))
(JSP T %CONS)
(MOVEM 1. (SPECIAL CURRENT-TASK-PATH))
(MOVE 1. (SPECIAL CURRENT-TASK))
(CALL 1. 'DISPLAY-TASK)
(SUB FXP (% 0. 0. 1. 1.))
(JRST 0. G0002)
G0019
(CAIE 1. 'PREV)
(JRST 0. G0026)
(MOVE 7. 0. 2.)
(SUBI 7. 1.)
(MOVE 2. (SPECIAL CURRENT-TASK-PATH))
(PUSH FXP 7.)
(MOVEI 1. 0. FXP)
(CALL 2. 'NTH)
(MOVEM 1. (SPECIAL CURRENT-TASK-INDEX))
(MOVE 7. 0. 1.)
(SUBI 7. 1.)
(MOVE 2. (SPECIAL TASK-RECORD))
(PUSH FXP 7.)
(MOVEI 1. 0. FXP)
(CALL 2. 'NTH)
(MOVEM 1. (SPECIAL CURRENT-TASK))
(MOVE 7. @ 0. P)
(SUBI 7. 1.)
(MOVE 2. (SPECIAL CURRENT-TASK-PATH))
(PUSH FXP 7.)
(MOVEI 1. 0. FXP)
(CALL 2. 'NTHCDR)
(MOVEM 1. (SPECIAL CURRENT-TASK-PATH))
(MOVE 1. (SPECIAL CURRENT-TASK))
(CALL 1. 'DISPLAY-TASK)
(SUB FXP (% 0. 0. 3. 3.))
(JRST 0. G0002)
G0026
(MOVEI 1. '() )
G0002
(SUB P (% 0. 0. 2. 2.))
(SUB FXP (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP COUNT-TASKS SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS COUNT-TASKS (() . 0.))
(COMMENT ARGLIST = (&AUX (SUCCESS-TALLY 0.) (FAILURE-TALLY 0.)))
(PUSH FXP (% 0.))
(PUSH FXP (% 0.))
(PUSH P (SPECIAL TASK-RECORD))
G0003
(SKIPN 0. 0. P)
(JRST 0. G0007)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(MOVEI 2. 0. 1.)
(HRRZ 2. 3. 2.)
(MOVEI 1. 'TRIAL-RESULT)
(CALL 2. 'ASSQ)
(HRRZ 1. 0. 1.)
(PUSH P 1.)
(CAIE 1. 'SUCCESS)
(JRST 0. G0013)
(AOS 0. -1. FXP)
(JRST 0. G0012)
G0013
(CAIE 1. 'FAILURE)
(JRST 0. G0014)
(AOS 0. 0. FXP)
(JRST 0. G0012)
G0014
(MOVEI 2. '|COUNT-TASKS - unrecognized or missing TRIAL-RESULT|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0012
(SUB P (% 0. 0. 2. 2.))
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0003)
G0007
(SUB P (% 0. 0. 1. 1.))
(STRT 0. (% SIXBIT |T↑(↑%↑2↑% ↑!↑2↑% !|))
(MOVE 1. (SPECIAL TASK-RECORD))
(NCALL 1. 'LENGTH)
(PUSH FXP 7.)
(MOVEI 1. 0. FXP)
(CALL 1. '*PRINC)
(STRT 0. (% SIXBIT | ↑4↑!↑3↑+↑3: !|))
(MOVEI 1. -2. FXP)
(CALL 1. '*PRINC)
(STRT 0. (% SIXBIT | ↑4↑(↑!↑4 ↑3↑5↑#↑#↑%↑%↑$↑%↑$, ↑!↑.↑$ !|))
(MOVEI 1. -1. FXP)
(CALL 1. '*PRINC)
(STRT 0. (% SIXBIT | ↑4↑(↑!↑4 ↑&↑!↑)↑,↑%↑$.!|))
(CALL 0. '*TERPRI)
(SUB FXP (% 0. 0. 3. 3.))
(POPJ P)
()
(LAP CLASSIFY-TASKS SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS CLASSIFY-TASKS (() . 1.))
(COMMENT ARGLIST = (KEY &AUX SUCCESS-LIST FAILURE-LIST (TALLY 0.)))
(PUSH P 1.)
(PUSH P (% 0. 0. '() ))
(PUSH P (% 0. 0. '() ))
(PUSH FXP (% 0.))
(PUSH P (SPECIAL TASK-RECORD))
G0003
(SKIPN 0. 0. P)
(JRST 0. G0007)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(MOVEI 2. 0. 1.)
(HRRZ 2. 3. 2.)
(MOVEI 1. 'TRIAL-RESULT)
(CALL 2. 'ASSQ)
(HRRZ 1. 0. 1.)
(AOS 0. 0. FXP)
(PUSH P 1.)
(CAIE 1. 'SUCCESS)
(JRST 0. G0013)
(MOVE 2. -4. P)
(MOVEI 1. 0. FXP)
(JSP T %PDLC)
(MOVEM 1. -4. P)
(JRST 0. G0012)
G0013
(CAIE 1. 'FAILURE)
(JRST 0. G0015)
(MOVE 2. -3. P)
(MOVEI 1. 0. FXP)
(JSP T %PDLC)
(MOVEM 1. -3. P)
(JRST 0. G0012)
G0015
(MOVEI 2. '|CLASSIFY-TASKS - unrecognized or missing TRIAL-RESULT|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0012
(SUB P (% 0. 0. 2. 2.))
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0003)
G0007
(SUB P (% 0. 0. 1. 1.))
(MOVE 1. -2. P)
(CAIE 1. 'SUCCESS)
(JRST 0. G0020)
(STRT 0. (% SIXBIT |S↑5↑#↑#↑%↑3↑3↑&↑5↑, ↑4↑!↑3↑+↑3: !|))
(MOVE 1. -1. P)
(CALL 1. 'NREVERSE)
(CALL 1. '*PRINC)
(JRST 0. G0019)
G0020
(CAIE 1. 'FAILURE)
(JRST 0. G0023)
(STRT 0. (% SIXBIT |F↑!↑)↑,↑%↑$ ↑4↑!↑3↑+↑3: !|))
(MOVE 1. 0. P)
(CALL 1. 'NREVERSE)
(CALL 1. '*PRINC)
(JRST 0. G0019)
G0023
(STRT 0. (% SIXBIT |S↑5↑#↑#↑%↑3↑3↑&↑5↑, ↑4↑!↑3↑+↑3: !|))
(MOVE 1. -1. P)
(CALL 1. 'NREVERSE)
(CALL 1. '*PRINC)
(CALL 0. '*TERPRI)
(STRT 0. (% SIXBIT |F↑!↑)↑,↑%↑$ ↑4↑!↑3↑+↑3: !|))
(MOVE 1. 0. P)
(CALL 1. 'NREVERSE)
(CALL 1. '*PRINC)
G0019
(SUB FXP (% 0. 0. 1. 1.))
(SUB P (% 0. 0. 3. 3.))
(POPJ P)
()
(LAP DISPLAY-TASK SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS DISPLAY-TASK (() . 1.))
(COMMENT ARGLIST = (TASK &AUX (TASK-FIELDS *PRINTING-TASK-FIELDS*) (CURRENTPOS 1.) (TABVAL 0.)))
(PUSH P 1.)
(MOVEI 5. '1.)
(PUSH P (SPECIAL *PRINTING-TASK-FIELDS*))
(JSP T SPECBIND)
(0. 5. (SPECIAL CURRENTPOS))
(CALL 0. '*TERPRI)
(CALL 0. '*TERPRI)
(MOVEI 1. '8.)
(CALL 1. 'TAB)
(STRT 0. (% SIXBIT |R↑%↑!↑3↑//↑.↑)↑.↑'-T↑!↑3↑+ !|))
(MOVE 1. (SPECIAL CURRENT-TASK-INDEX))
(CALL 1. '*PRINC)
(CALL 0. '*TERPRI)
(CALL 0. '*TERPRI)
(PUSH FXP (% 0.))
G0003
(SKIPN 0. 0. P)
(JRST 0. G0005)
(HLRZ 1. @ 0. P)
(MOVEI 5. '1.)
(MOVEM 5. (SPECIAL CURRENTPOS))
(PUSH P 1.)
(NCALL 1. 'FLATC)
(MOVEI 8. 13.)
(SUB 8. 7.)
(MOVEM 8. 0. FXP)
(CALL 0. '*TERPRI)
(MOVEI 1. 0. FXP)
(CALL 1. 'TAB)
(MOVE 1. 0. P)
(CALL 1. '*PRINC)
(MOVE 1. (SPECIAL |: |))
(CALL 1. '*PRINC)
(MOVEI 1. '|arguments|)
(CAME 1. 0. P)
(JRST 0. G0010)
(PUSH P (SPECIAL CURRENTPOS))
(MOVE 1. -1. P)
(NCALL 1. 'FLATC)
(MOVE 8. @ 0. P)
(ADDI 8. 3.)
(ADD 7. 8.)
(JSP T FXCONS)
(MOVEM 1. (SPECIAL CURRENTPOS))
(MOVE 1. -3. P)
(CALL 1. 'DISPLAY-TASK-ARGS)
(SUB P (% 0. 0. 1. 1.))
(JRST 0. G0009)
G0010
(MOVE 2. -2. P)
(MOVE 1. 0. P)
(CALL 2. 'TASK-FIELD-CONTENTS)
(PUSH P 1.)
(JUMPE 1. G0017)
(CALL 1. '*PRINC)
G0017
(SUB P (% 0. 0. 1. 1.))
G0009
(SUB P (% 0. 0. 1. 1.))
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0003)
G0005
(SUB P (% 0. 0. 1. 1.))
(SUB FXP (% 0. 0. 1. 1.))
(PUSHJ P UNBIND)
(MOVEI 1. 'T)
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP DISPLAY-TASK-ARGS SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS DISPLAY-TASK-ARGS (() . 1.))
(MOVEI 2. '|DISPLAY-TASK-ARGS - fn not yet written!|)
(MOVEI 1. 'T)
(JCALL 2. '*BREAK)
()
(LAP TASK-FIELD-CONTENTS SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS TASK-FIELD-CONTENTS (() . 2.))
(PUSH P 1.)
(PUSH P 2.)
(CAIE 1. '|effort|)
(JRST 0. G0002)
(HRRZ 1. 0. 2.)
(JRST 0. G0001)
G0002
(CAIE 1. '|priority|)
(JRST 0. G0004)
(HLRZ 1. 0. 2.)
(JRST 0. G0001)
G0004
(CAIE 1. '|description|)
(JRST 0. G0006)
(MOVEI 1. 0. 2.)
(HRRZ 1. 1. 1.)
(JRST 0. G0001)
G0006
(CAIE 1. '|r-expert|)
(JRST 0. G0008)
(MOVEI 1. 0. 2.)
(HLRZ 1. 1. 1.)
(HLRZ 1. 0. 1.)
(JRST 0. G0001)
G0008
(CAIE 1. '|method|)
(JRST 0. G0011)
(MOVEI 1. 0. 2.)
(HRRZ 1. 2. 1.)
(JRST 0. G0001)
G0011
(CAIE 1. '|argument-wff|)
(JRST 0. G0013)
(MOVEI 1. 0. 2.)
(HLRZ 1. 2. 1.)
(HLRZ 5. 0. 1.)
(HRRZ 5. 1. 5.)
(MOVEI 1. 0. 5.)
(HRRZ 1. 1. 1.)
(MOVEI 2. 'FORMULA)
(CALL 2. 'GET)
(JRST 0. G0001)
G0013
(CAIE 1. '|arguments|)
(JRST 0. G0019)
(MOVEI 1. 0. 2.)
(HLRZ 1. 2. 1.)
(JRST 0. G0001)
G0019
(CAIE 1. '|trial-report|)
(JRST 0. G0021)
(MOVEI 1. 0. 2.)
(HRRZ 1. 3. 1.)
(JRST 0. G0001)
G0021
(MOVEI 2. '|RPN-TASK-CONTENTS - unrecognized task-field atom|)
(MOVEI 1. 'T)
(CALL 2. '*BREAK)
G0001
(SUB P (% 0. 0. 2. 2.))
(POPJ P)
()
(DEFPROP HELP-TEXT (HELP-TABLE-ENTRY . HELP-TEXT) DEFSTRUCT-SLOT)
(DEFPROP HELP-TEXT DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP 2ND-ARG-SUMMARY (HELP-TABLE-ENTRY . 2ND-ARG-SUMMARY) DEFSTRUCT-SLOT)
(DEFPROP 2ND-ARG-SUMMARY DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP ARG-SUMMARY (HELP-TABLE-ENTRY . ARG-SUMMARY) DEFSTRUCT-SLOT)
(DEFPROP ARG-SUMMARY DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP COMMAND-NAME (HELP-TABLE-ENTRY . COMMAND-NAME) DEFSTRUCT-SLOT)
(DEFPROP COMMAND-NAME DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP COMMAND-KEY (HELP-TABLE-ENTRY . COMMAND-KEY) DEFSTRUCT-SLOT)
(DEFPROP COMMAND-KEY DEFSTRUCT-EXPAND-REF-MACRO MACRO)
(DEFPROP MAKE-HELP-TABLE-ENTRY HELP-TABLE-ENTRY DEFSTRUCT-NAME)
(DEFPROP MAKE-HELP-TABLE-ENTRY DEFSTRUCT-EXPAND-CONS-MACRO MACRO)
(DEFPROP HELP-TABLE-ENTRY (ONE LIST () ((COMMAND-KEY 0 () %%DEFSTRUCT-EMPTY%% NOTYPE () COMMAND-KEY) (COMMAND-NAME 1 () %%DEFSTRUCT-EMPTY%% NOTYPE () COMMAND-NAME) (ARG-SUMMARY 2 () %%DEFSTRUCT-EMPTY%% NOTYPE () ARG-SUMMARY) (2ND-ARG-SUMMARY 3 () %%DEFSTRUCT-EMPTY%% NOTYPE () 2ND-ARG-SUMMARY) (HELP-TEXT 4 () %%DEFSTRUCT-EMPTY%% NOTYPE () HELP-TEXT)) () ((MAKE-HELP-TABLE-ENTRY)) () () 5 () HELP-TABLE-ENTRY () 0 (EVAL COMPILE LOAD) ALTER-HELP-TABLE-ENTRY () () () () () () () ) DEFSTRUCT-DESCRIPTION)
(DEFPROP ALTER-HELP-TABLE-ENTRY HELP-TABLE-ENTRY DEFSTRUCT-NAME)
(DEFPROP ALTER-HELP-TABLE-ENTRY DEFSTRUCT-EXPAND-ALTER-MACRO MACRO)
'HELP-TABLE-ENTRY
(SETQ XPTR-HELP-TABLE '((CT "Count Tasks" |no arguments|) (LS "List Successful tasks" |no arguments|) (LF "List Failed tasks" |no arguments|) (LSF "List Successful and Failed tasks" |no arguments|) (DI "Display Index of current task" |no arguments|) (DT "Display current Task" |no arguments|) (T/,MT "Move to specified Task" |argument: none, a number, or *|) (N/,F "move Forward to Next task" "argument: a number") (B "move Backward in the task-record" "argument: a number") (P "move to Previous task (on task-Path)" "argument: a number") (DP "Display current-task-Path" |no arguments|) (KP "Kill or shorten current-task-Path" |argument: none, a number, or *|) (?/,H "mini-Help: 1-line command summary" |no arguments|) (|??,HH,HELP| "Help: command information" "arguments: none, or commands") (Q/,QUIT "Quit" |no arguments|)))
(LAP XPTR-HELP SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS XPTR-HELP (() . 1.))
(COMMENT ARGLIST = (CMD-TAIL &AUX (CURRENTPOS 1.)))
(PUSH P 1.)
(MOVEI 5. '1.)
(JSP T SPECBIND)
(0. 5. (SPECIAL CURRENTPOS))
(JUMPN 1. G0010)
(MOVEI 4. '1.)
(MOVEM 4. (SPECIAL CURRENTPOS))
(CALL 0. '*TERPRI)
(MOVEI 1. '1.)
(CALL 1. 'TAB)
(MOVEI 1. '"Command Summary - EXPLORE TASK-RECORD.")
(CALL 1. 'POSPRINC)
(MOVEI 1. '42.)
(CALL 1. 'TAB)
(STRT 0. (% SIXBIT |S↑9↑.↑4↑!↑8: <↑#↑-↑$> ↑//↑2 (<↑#↑-↑$> ↑;<↑!↑2↑'>↑> ...)!|))
(CALL 0. '*TERPRI)
(MOVEI 1. 'DD)
(CAME 1. (SPECIAL TERMINAL-TYPE))
(JRST 0. G0011)
(CALL 0. '*TERPRI)
G0011
(PUSH P (SPECIAL XPTR-HELP-TABLE))
(PUSH P 0. P)
G0004
(SKIPN 0. 0. P)
(JRST 0. G0014)
(HLRZ 1. @ 0. P)
(CALL 1. 'DISPLAY-HELP-TABLE-ENTRY)
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0004)
G0014
(SUB P (% 0. 0. 1. 1.))
(POP P 1.)
(JRST 0. G0009)
G0010
(MOVEI 4. '1.)
(MOVEM 4. (SPECIAL CURRENTPOS))
(CALL 0. '*TERPRI)
(MOVEI 1. '1.)
(CALL 1. 'TAB)
(MOVEI 1. '"Some command info - EXPLORE TASK-RECORD.")
(CALL 1. 'POSPRINC)
(MOVEI 1. '44.)
(CALL 1. 'TAB)
(STRT 0. (% SIXBIT |S↑9↑.↑4↑!↑8: <↑#↑-↑$> ↑//↑2 (<↑#↑-↑$> ↑;<↑!↑2↑'>↑> ...)!|))
(CALL 0. '*TERPRI)
(CALL 0. '*TERPRI)
(MOVE 1. 0. P)
(JSP T PDLNMK)
(PUSH P 1.)
(PUSH P 1.)
G0008
(SKIPN 0. 0. P)
(JRST 0. G0021)
(HLRZ 1. @ 0. P)
(PUSH P 1.)
(CAIN 1. 'T)
(JRST 0. G0025)
(CAIE 1. 'MT)
(JRST 0. G0024)
G0025
(MOVEI 1. 'T/,MT)
(JRST 0. G0023)
G0024
(CAIN 1. 'N)
(JRST 0. G0027)
(CAIE 1. 'F)
(JRST 0. G0026)
G0027
(MOVEI 1. 'N/,F)
(JRST 0. G0023)
G0026
(CAIN 1. 'Q)
(JRST 0. G0029)
(CAIE 1. 'QUIT)
(JRST 0. G0028)
G0029
(MOVEI 1. 'Q/,QUIT)
(JRST 0. G0023)
G0028
(CAIN 1. '?)
(JRST 0. G0031)
(CAIE 1. 'H)
(JRST 0. G0030)
G0031
(MOVEI 1. '?/,H)
(JRST 0. G0023)
G0030
(CAIN 1. '??)
(JRST 0. G0032)
(CAIN 1. 'HH)
(JRST 0. G0032)
(CAIN 1. 'HELP)
(JRST 0. G0032)
(SKIPA)
G0032
(MOVEI 1. '|??,HH,HELP|)
G0023
(PUSH P 1.)
(MOVE 2. (SPECIAL XPTR-HELP-TABLE))
(CALL 2. 'ASSQ)
(CALL 1. 'DISPLAY-HELP-TABLE-ENTRY)
(SUB P (% 0. 0. 2. 2.))
(HRRZ 1. @ 0. P)
(MOVEM 1. 0. P)
(JRST 0. G0008)
G0021
(SUB P (% 0. 0. 1. 1.))
(POP P 1.)
G0009
(SUB P (% 0. 0. 1. 1.))
(JRST 0. UNBIND)
()
(LAP DISPLAY-HELP-TABLE-ENTRY SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS DISPLAY-HELP-TABLE-ENTRY (() . 1.))
(PUSH P 1.)
(HLRZ 2. 0. 1.)
(CAIN 2. 'Q/,QUIT)
(JRST 0. G0003)
(CAIE 2. '|??,HH,HELP|)
(JRST 0. G0002)
G0003
(SKIPA 1. (% 0. 0. '13.))
G0002
(MOVEI 1. '7.)
(MOVEI 5. '1.)
(MOVEM 5. (SPECIAL CURRENTPOS))
(PUSH P 1.)
(CALL 0. '*TERPRI)
(MOVE 2. -1. P)
(MOVEI 1. '0.)
(CALL 2. 'NTH)
(CALL 1. 'POSPRINC)
(POP P 1.)
(CALL 1. 'TAB)
(MOVE 2. 0. P)
(MOVEI 1. '1.)
(CALL 2. 'NTH)
(CALL 1. 'POSPRINC)
(MOVEI 1. '43.)
(CALL 1. 'TAB)
(MOVE 1. (SPECIAL | - |))
(CALL 1. '*PRINC)
(MOVE 2. 0. P)
(MOVEI 1. '2.)
(CALL 2. 'NTH)
(CALL 1. 'POSPRINC)
(MOVE 2. 0. P)
(MOVEI 1. '3.)
(CALL 2. 'NTH)
(JUMPE 1. G0011)
(MOVEI 1. '44.)
(CALL 1. 'TAB)
(MOVE 2. 0. P)
(MOVEI 1. '3.)
(CALL 2. 'NTH)
(CALL 1. 'POSPRINC)
G0011
(SUB P (% 0. 0. 1. 1.))
(POPJ P)
()
(LAP XPTR-SHORT-HELP SUBR)
(EVAL (SETQ IBASE 10.))
(ARGS XPTR-SHORT-HELP (() . 0.))
(CALL 0. '*TERPRI)
(STRT 0. (% SIXBIT |C↑//↑-↑-↑!↑.↑$↑3: CT LS LF LSF DI DT T,MT N,F B P DP KP ? ??,HELP Q QUIT!|))
(MOVEI 1. 'T)
(POPJ P)
()
(COMMENT **** (POSPRINC TAB %UMATCH CONTEXT:PRED-LOOKUP CONTEXT:PRED-LOOKUP-ALL TCONC CONTEXT:ADD CONTEXT:LOOKUP CONTEXT:SPROUT-CONTEXT LT-TYPE)
have been used but remain undefined in this file)